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000042 

000300 
000000 
000000 
000000 



00004;.' 

003736 •' 

000300 

0000000 



TITLE TSKMIM1 
ENABL LC 
DSABL GBL 
ASECT 

42 
WORD KMSTK 

300 
WORD MDT 
CSECT TSKMON 



TSX-F'lus Keyboard Monitor 



; DEFINE INITIAL STACK POINTER 

; # MINUTES OF SYSTEM UPTIME IF DEMO VERSION 



TSKMON: 
TSKMN.t: 



TSKMON is the terminal command processing module of the TSX 
operating system. 

TSKMON is broken into three parts: 

TSKMN1 is the portion of TSKMON that contains the code to acquire 

a command and branch off to the appropriate command processing routine. 

TSKMN2 contains the actual command processing routines. 

TSKMN3 contains subroutines. 

TSKMON runs in user mode and has memory mapping set up as follows: 

000000-040000 — :> tsgen 

140000-157777 — > Job context block 
160000-177777 — > Monitor vector (MONVEC) 

Copyright 1978, 1979, 1980.. 1981, 1982, 1983. 
S&H Computer Systems, Inc, 
Nashville, Tennessee 



MCALL . CSISPC, . TTOUTR, . SRESET 

MCALL . READW, . TTYIN, . TTYOUT , . PURGE 

MCALL . CSIGEN, . 5AVEST, . REOPEN 

MCALL . GTLIN, . GTIM, . DATE 

MCALL . PRINT, . CLOSE, . LOOKUP 

MCALL. . WRITW, . ENiER, . EXIT 

MCALL . SERR, . Hi-RR, . FPROT, . OVAL, . PVAi 



Global definitions 



GL.OBL 
GLOBL 
OLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



INGEMT 

TSKMON 

CTMSG, 

START, 

REMNDR 

ALDEMT 

MONTAB 

WRNHED 

EMSDAA 



INGADR, INPEMT, INPADR, IIBUF 
, GREEl , PRTGRT, GRTFIN, KMN0T1 
LGOVER, PPNMSG, BOTEMT, KEYBUF 
CPUMSG, CF2DEP, PBUFND, KMFTXT 
, RSOCMR, KEYEND, KMSTK, BADBOT 
, DECENT, TALENT, ALCDEV, CDBUF 
, TSKMON, ASNOVF, AMBOPT, TSKMN1 
, EM*NUK, ESC, CSHMSG, UCIDEF 
, GENMON, CDGEMT, CDGADR, CDPEMT, CDPADR 



Global references 

. GLOBL *NOVLN, P2$VIR, PRIVA2, PRIVS2, SC*ERR, SUCF2 
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. OLOBL INSSRC, II*PRV, II*NPV, IIBUF, AFCF, II*R_Q» EM$NUC 

. OLOBL ISPF5, ISPF6, ISPF7, ISPF9, PRIVFO, SKPSPC, ISPF11 

. OLOBL LBSPRI, GETSVP, JPWDEV, JPWTYP, SBPSUF, CFSTRT 

. OLOBL ABRTAD, ABRTCD, CINFLG, SVNOTT, INIUKD, R50KMN, ABRTOV 

. OLOBL. CORUSR, LSW, 5ERFLG, IOABFL, KMPRMT, MXPRMT 

. OLOBL UTRPAD, JSWLOC, ERRLOC, MAXMEM, MAXPRI, JPWFLO 

. OLOBL USRSTK, SKINJT, CFSTK, MXJMEfi, DFJMEM, *SUCF 

. OLOBL SPUBUF, SXBPNT, MXJADR, LWINDO, CMDSPN, CMDRSM 

. OLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH, RUNCHN, RUNNAM 

, OLOBL TMSWTH, TMIDL H* TMIOH, TMSWPH, CMDHD, *SYSPS 

. OLOBL VEDIT, WILDFL, *NOIN, $NOWTT, *HITTY, *CHACT 

OLOBL PO*DBO.- PRIVCO- PRIVAO. PRIVSO, PO*SPV, PVNPW.. RUNARG 

, OLOBL JS*KMN, JS*ON, LMONHD, EH*OVL, I I**SZ, RSTPRV, EM*SFP 

OLOBL MSTALC, ALCERR, ABM24, ABM23, ABM22, ABM21, ABM20, SMONHD 

GLOBL ABM17, ABM16, ABM15, ABM14, ABM13, ABM12, ABM1 1, JS*LOG 

OLOBL ABM10, ABM7, ABM6, ABM5, ABM4, ABM3, ABM2, ABM1, AB1 

OLOBL AB2, AB3, AB4, AB5, AB6, AE10, AB1 1 , AB12, AB13, AB14, AB15, AB16 

GLOBL REGEN, STDNAil, IMVT10, IMVT52, IMADM3, IMHAZL, MONTXT, FILERH 

GLOBL LQCMSG, TOOLNG, NOCF, NUMPRPL STRLEN, ABCMD, MISUCL 

. OLOBL URCMD. TM*LNJ , UNSUP, LINNTX.. CMDINS 

OLOBL TECO, EDIT, KED, K52, *1STLG, *DIBOL, HANCHN 

GLOBL SH*VAL, SH*NAM> SH*$SZ, SHSRTN, SH*FLG 

GLOBL SO*NVL, SO*OCT, SO*NO, HANENT, HANSIZ, CMDYEL 

GLOBL CMDRSY, CMDRUN, CMDRST, CMDSHO, CMDSET, CMDSND 

GLOBL CMDWHO, CMDFMT* CMDDAT, CMDTIM, CMDMNT, CMDMON 

GLOBL CMDDMT, CMDDSP, CMDASN, CMDALC, CMDDLC, CMDREH 

OLOBL CMOHEM, OPRCMD, CMDSPO, CMDKIL, CMDPAU, CMDDET, CMDRCL 

GLOBL CMDACC, CMDUSE, CMDINI. CMDSQZ, UCLCMD, CMDBOT, CMDBOT 

GLOBL CMDSHT. PROFl 0, CMDDEF 

GLOBL LSW9, *DEBUC, LSW1 1 

GLOBL HAZEL, HAZLFL, HAZLNO, $MLOCK, MDT 

GLOBL LINBUF, LTNNXT, LSTACT, PRGTOP, PRGSIZ> KMNHI 

GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG 

GLOBL LINPNT, LINCNT* LACTIV, LRDTIM, CS$RQN 

GLOBL LOTBUF, LOTNXT* LOTPNT, *VTESC 

OLOBL LOTS I 1, LOTSPC, LCOL, UCISPC, *MAPOK 

OLOBL LAFSIZ, LFWLIM, L INCUR, NUMON, ILSW2 

GLOBL *CARUP, *SLON, *SLTTY, *SLLET, SSLKED 

OLOBL LSUCF, *CCLRN> *UKMON, UKMNAM, *UKMRN 

GLOBL KL3CLR, *PRGLK» L5W5, PVON, S*SPND 

GLOBL S*TWFN, S*TTFN, S*OTFN, S*IOFN, S*OTLO 

GLOBL LSTDL, FSTDL. *DETCH, UMSYTP 

GLOBL *DISCN, LPROJ, LPROG, LUNAME, UPPN 

GLOBL LCPUH.I, LCPULO, LCONTM, *CTRLS, *SPLJB 

GLOBL STPFLC, TOTON, USPLCH, SPLCHN 

GLOBL 5«INWT, S$OTWT, SfTMWT, S*SFWT 

GLOBL S*MSWT» CFBUF, CPEND, CCLSAV, KMNCHN 

GLOBL MINTIM, LSECPT, MAXSEC, *EMTTR 

GLOBL OKFILE> 0KFEN1), *CLTST, *NOINT 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, ERRSPC 

GLOBL USTART, OENTOP* BOTDEV, BOTUNI, CMDOFF 

GLOBL *CTRLC, LSW2, *INKMN, CHAIN, UFORM, *INDAB 

GLOBL MAXASN, *CFABT, INDSTA, INDERR 

OLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASNTBL, *DILUP, LNSBLK, RUNFLG 

GLOBL ASNEND, LSW3, L.SW2S, *DUPRN 

GLOBL *FORM, »TAB» LSCCA, *CFSOT, *RNIOP, $SETRN 
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. GLOBL $PAGE, *5C0PE, *ECH0, *LC 

. 0L.0BL UCHAN, SFORMO, *CFALU SCFDCC, *CFCCL 

. GLOBL LNPRIM, LNMAP, CW$50H, CONFIG, *NTGCC 

. GLOBL SDOOFF, NUCHN, LRBFIL, CFIND, LPARNT 

. GLOBL C. CSW, C. DEVG, C. SBLK, NLINE5 

. GLOBL CD*NAM, CD$DVU, CD*BAS, CD* JOB, CD$$SZ, CD$$UB 

. GLOBL LTSCMD, LNSPAC, CFNEST, VU*CL, UCLNAM 

. GLOBL *CFOPN, CFSEND, PBFEND, CFSP, *TTGAG, VUCLMC 

. GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF, VUCLOR 

. GLOBL SDFLAG, SD*FLK, SB*WFM, SDFORM, *UCLRN 

. GLOBL SDBUF1 , SDBLK, NSPLDV, LD*RON, *UCLCM, *UCLCL 

GLOBL LDNAME.- LDS.TZE, LDFLAG, LDBASE, LDPDEV 

. GLOBL $DEFER, CFCHAN, SCHAIN, LDDEVX 

. GLOBL CFPNT, CFBLK, *GUIET, DIABFL, KDOCIN, CFSGEZ 

. GLOBL DIABNO, VT52N0, LA36N0, LA36FL, POPCF 

. GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

. GLOBL $INCOR, *KED 

. GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

, GLOBL SD*HLD, SF$HLD, CURPRM, PRMPNT, SF*1ST 

. GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

. GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD 

, GLOBL LCOL, *GTSET, $TECO, CD*TOP 

. GLOBL $WILD, ERRSEV, UERSEV, PASLIN 

GLOBL LSTPL, SDCB, SDCBND 

GLOBL VQUAN1, VQUN1A, VGUAN2, VHIPCT 

GLOBL DCTRD, DCCRD, BCTWR, DCCWR 

GLOBL VCORTM, KMPRHT, MXPRMT 

. GLOBL RDB, RDBEND, RT*NAM, RT$*SZ 

GLOBL SDCBSZ, LSTSL, LSTATE, SJEMT, RJEMT 

GLOBL TK1VAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BA5MAP, LQMAP, HI MAP, JCXPGS 

GLOBL TSXLN, TSXS I T, GRT 1 , TRGRET, L I CTXT, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRG1, LPRG2, S*GUSR, SSIOWT, SfSFWT 

GLOBL S*SPDB, SSSPCB, SFUSER, SFFILE 

GLOBL LCBIT, LA36, LA120, VT52, VT100, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VT10FL, VT10N0, GUMEFL, GUMENO, ADM3FL 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL OFSDEV, OFSUNT, OF*FIL, OF*FLG, SYNAME 

GLOBL OF$*SZ, OT*RON> RESDEV, UTAPE 

GLOBL KMNBAS, VT2007, VT2008, VT20N0, VT20FL 

GLOBL LSW6, $SNWTT, PF$SYS, PF*IOW 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL $INDDF, *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL $PHONE, INVEC, LMXLIM, MXVEC, *INIT, *DEAD 

GLOBL ITRMTP, LMXPRM, LSW7, *CFKIL, CFSTS, CF*IND, CFSQUT 

GLOBL CFABLV, MONVEC, MAXPRI , MXJPRI 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LF*OPN, LFtWRTi UCLBLK, UCLDAT 

GLOBL CSHHD, FC*CDX, FC*LNK, FD*NAM, UC*NDC, UC*MDC 

GLOBL PLOAD, DORUN, CMDFRM, CMDDSN, STLGCN, DATUM, PRGALL 

GLOBL LDCLEIM, R50TSX, R50UCL, INDABT 

GLOBL CMDBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

GLOBL INVQPT, FK.ILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50C0M 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 
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GLOBL BADSAV, LDNAM, NOPRG, NOG IN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, GTRD50, R50BUF, R SOLDO, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, INVOPT, ILLCMD 

GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDEC, DEVUNT, PNAME, HANIDX, HNBUF 

GLOBL ACROCT, HANBSY, CSIMS1 , MISSEQ, NGIND 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 

GLOBL BDLGOP, SPLHLA, LDOPHD, PRTFI X, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHD1 , SYHD2, PRTLN, SPACE2, DETTXT, SPACE3, RNMS 

GLOBL SWPTX.- LOCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPU&H, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC, DEVHD1 , ASNHDi , ASNHD2, SHMTH1 , SHMTH2 

GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NQNEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MOMHD, M0NAR1, NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG, MHNSMS 

GLOBL YELEMT, LINFRE, DJABMS, DLMSG, INVTIM, DMT ALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUM1, SUM2, SUM3, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL, CHKTTD 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT, CSIMS3, OVLYEQ 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL 
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i Assembly parameters 

i Greeting message control option 

; If GREET=2, full greeting message is printed. 

; If GREET=1, truncated greeting message is printed. 

; If GREET=0, greeting message is not printed. (SHOULD NEVER BE USED) 

GREET a 2 

; Assembly constants 



LF 

CR 

BLANK 

BELL 

TAB 

FF 

ESC 

BLKWDS 

HANCHN 



12 

15 

40 

07 

11 

14 

33 

256. 

16 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

Escape character 

# OF WORDS IN DISK BLOCK 

Channel used to access handler 



files 



Flags which are passed to CCL in chain location 510. 



C$TECQ 

C*WILD 

C$QUIT 

C$TEST 

C$KED 

C$K52 

CUDIBL 



1 

2 

4 

10 

20 

40 

100 



USE TECO AS DEFAULT EDITOR 

USE IMPLICIT WILDCARD NAMES 

SET TT QUIET IS IN EFFECT 

DISPLAY CCL GENERATED COMMANDS 

DEFAULT EDITOR IS KED 

DEFAULT EDITOR IS K52 

DEFAULT TO DIBOL RATHER THAN DBL 
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4 000000 
000006 

5 000010 

6 000014 

7 000020 
000026 
000034 
000042 

8 000050 
000056 

9 000060 



075250 
073376 
000000 
000000 
037266 
004322 
040724 
057114 



General data area 
102405 057760 UCIDEF: . RAD50 /SY UKMON SAV/ ; Default program for UCI 



000000 
000000 
023112 

050601 
004617 
054756 



050572 
040726 
073630 
0.14713 



DIVSOR 
REMNDR 
R50M0N 



OOOOOOG OOOOOOG OOOOOOG KCSIMS: 
OOOOOOG 

IIBUF: 



. WORD 0, 
. WORD 0, 
. RAD50 /JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC/ 



WORD CSIMBl, CSIMS2. CSIMS3, CSIMS4 
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000114 


0000006 
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000 116 


0000000 
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000120 


OOCOOOG 
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000122 


0000000 
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000124 


0000000 




9 


000126 


0000000 




10 


000130 


0000000 




11 
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0000000 
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OOOOOOG 




13 
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OOOOOOG 




14 


000140 


0000000 




15 
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OOOOOOG 
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OOOOOOG 




17 
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OOOOOOG 
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000150 


OOOOOOG 




19 
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OOOOOOG 




20 
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OOOOOOG 




21 


000156 


OOOOOOG 




22 


000160 


OOOOOOG 
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OOOOOOG 
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25 


000166 


OOOOOOG 




26 


000170 


OOOOOOG 




27 


000172 


OOOOOOG 




28 


000174 


OOOOOOG 




29 


000176 


000000 
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000200 


OOOOOOG 
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000202 


OOOOOOG 




32 


000204 


OOOOOOG 
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000206 


OOOOOOG 
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000210 


OOOOOOG 
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000212 


OOOOOOG 
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000214 


OOOOOOG 
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000216 


OOOOOOG 
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OOOOOOG 
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000222 


OOOOOOG 
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000224 


OOOOOOG 
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000226 
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42 


000230 


OOCOOOG 




43 


000232 


OOOOOOG 
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Abort error message index table. 



. WORD 


EM*SFP 


. WORD 


EM*OVL 


. WORD 


MSTALC 


. WORD 


ALCERR 


. WORD 


LGOVER 


. WORD 


ABM24 


. WORD 


ABM23 


. WORD 


ABM22 


WORD 


ABM21 


. WORD 


ABM20 


. WORD 


ABM 17 


. WORD 


ABM16 


. WORD 


ABM15 


. WORD 


ABM14 


. WORD 


ABM13 


. WORD 


ABM12 


. WORD 


ABM11 


. WORD 


ABM 10 


. WORD 


ABM7 


. WORD 


ABM6 


. WORD 


ABM5 


. WORD 


ABM4 


. WORD 


ABM3 


. WORD 


ABM2 


. WORD 


ABM1 


ABTMSG: . WORD 





. WORD 


AB1 


. WORD 


AB2 


. WORD 


AB3 


. WORD 


AB4 


. WORD 


AB5 


. WORD 


AB6 


. WORD 


RDERM 


. WORD 


AB10 


. WORD 


ABU 


. WORD 


AB12 


. WORD 


AB13 


. WORD 


AB14 


. WORD 


AB15 


. WORD 


AB16 



-31 
-30 

-27 

-26 

-25 

-24 

-23 

-22 

-21 

-20 

-17 

-16 

-15 

-14 

-13 

-12 

-11 

-10 

-7 

-6 

-5 

~4 

-3 

-1 


+1 

+2 
+3 
+4 
+5 
+6 
+7 
+ 10 
-Hi 
+ 12 
+ 13 
+ 14 
+ 15 
+ 16 



TSKMN1 
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3 
4 

5 
6 
7 

8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
5.1. 
52 
53 
54 
55 
56 



MACRO TO CAUSE A FATAL ERROR MESSAGE TO BE PRINTED. 



. MACRO FERR 



MSG 



MOV 

MOV 
CALL 
MOV 
. ENDM 



R5, -<SP> 
MSG,R5 
FPRINT 
(SP)+, R5 
FERR 



MACRO TO PRINT A FATAL ERROR MESSAGE, CLEAN UP 
AND THEN JUMP TO RDCMD. 

. MACRO FABORT MBG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



MACRO TO START A STANDARD OPTION TABLE. 

NAME = 1 T0 4 CHARACTER TABLE NAME. 

NA = NUMBER OF ARGUMENTS PER TABLE ENTRY. 

. MACRO TBLDEF NAME, NA 

NARGB = NA 

. CSECT CMDVK1 

NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



MACRO TO ENTER AN OPTION TEXT NAME AND A SET OF PARAMETERS 

INTO THE CURRENTLY OPEN TABLE. 

STRNG = ASCII NAME 

A, B, C = SET OF OPTION PARAMETERS TO STORE IN TABLE WITH NAME. 



. MACRO 


CMDDEF 


STRNG, A, B, C 


. CSECT 


NAMEK1 




. ASCIZ 


/STRNG/ 




. CSECT 


CMDVK1 




. WORD 


L 


; POINTER TO NAME STRING 


. WORD 


A 




I IF GE, <NARGS-2> 


. WORD B 


I IF GE, <NARGS--3> 


. WORD C 


. ENDM 


CMDDEF 




MACRO TO END 


A SET OF 


TABLE ENTRIES. 


. MACRO 


TBLEND 




. CSECT 


CMDVK1 




. WORD 







. CSECT 


TSKMON 




. ENDM 


TBLEND 
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1 



3 




4 




5 




6 




7 




8 


000234 


9 


000002 


10 


000006 


11 


000012 


1 o 


000016 


13 


000022 


14 


000026 


15 


000032 


16 


000036 


17 


000042 


IS 


000046 


19 


000052 


20 


000056 


~> 1 


000062 


22 


000066 




000072 


24 


000076 


25 


000102 


26 


000106 


27 


000112 


28 


000116 


29 


000122 


30 


000126 


31 


000132 


32 


000136 


33 


000142 


34 


000146 


35 


000152 


36 


000156 


37 


000162 


38 


000166 


39 


000172 


40 


000176 


41 


000202 


42 


000206 


43 


000212 


44 


000216 


45 


000222 


46 


000226 


47 


000232 


48 


000236 


49 


000242 


50 


000246 


51 


000252 


52 


000256 


53 


000262 


54 


000266 


55 


000272 


56 


000276 


57 


000302 



. SBTTL Table of-' command keywords 
Define commands 



Arg 1 = command string name 


Art) 2 ■■- processing routine 


TBLDEF 


CMD, 1 


CMDDEF 


R, CMDRSY 


CMDDEF 


RU*N, CMDRUN 


CMDDEF 


REN#AME, CMDCCL 


CMDDEF 


REM#OVE.- CMDREM 


CMDDEF 


RES*UME, CMDRBM 


CMDDEF 


RESE#T, CMDRST 


CMDDEF 


COP#Y, CMDCCL 


CMDDEF 


DIRECTORY, CMDCCL 


CMDDEF 


ED* IT, CMDCCL 


CMDDEF 


TY#PE, CMDCCL 


CMDDEF 


PR I #NT, CMDCCL 


CMDDEF 


SH*OW, CMDSHD 


CMDDEF 


SE*T, CMDSET 


CMDDEF 


SEIM#D, CMDSND 


CMDDEF 


YE#LL, CMDYEL 


CMDDEF 


W*HO, CMDWHO 


CMDDEF 


SY*STAT, CMDWHO 


CMDDEF 


DEL*ETE, CMDCCL 


CMDDEF 


COM#PILE, CMDCCL 


CMDDEF 


LIN*K, CMDCCL 


CMDDEF 


EX#ECUTE, CMDCCL 


CMDDEF 


COE*OL, CMDCCL 


CMDDEF 


FOR*TRAN, CMDCCL 


CMDDEF 


FORM, CMDFRM 


CMDDEF 


FORMA*T, CMDFMT 


CMDDEF 


DIB*OL, CMDCCL 


CMDDEF 


MA*CRO, CMDCCL 


CMDDEF 


MAK*E, CMDCCL 


CMDDEF 


DA*TE, CMDDA7 


CMDDEF 


TI#ME, CMDTIM 


CMDDEF 


MO*UNT, CMDMNT 


CMDDEF 


MON*ITQR, CMDMOM 


CMDDEF 


DISCOUNT, CMDDMT 


CMDDEF 


DISP*LAY, CMDDSP 


CMDDEF 


DEF* I NE, CMDDEF 


CMDDEF 


OF*F, CMDOFF 


CMDDEF 


LOG*OFF, CMDOFF 


CMDDEF 


KJ*OB, CMDOFF 


CMDDEF 


BY*E, CMDOFF 


CMDDEF 


AS*SI6N» CMDASN 


CMDDEF 


DEA, CMDDSN 


CMDDEF 


DEAS#SION, CMDDSN 


CMDDEF 


ALLO#CATE, CMDALC 


CMDDEF 


DEALLOCATE, CMDDLC 


CMDDEF 


IND, CMD I WD 


CMDDEF 


DIFFERENCES, CMDCCL 


CMDDEF 


DU*MP, CMDCCL 


CMDDEF 


H*ELP, CMDCCL 


CMDDEF 


ME*MORY, CMDMEM 
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58 


000306 


59 


000312 


1 60 


000316 


61 


000322 


62 


000326 


( 63 


000332 


64 


000336 


65 


000342 


1 66 


000346 


67 


000352 


68 


000356 


* 69 


000362 


70 


000366 


71 


000372 


i 72 


000376 


73 


000402 


74 


000406 


< 75 


000412 


76 


000416 


77 


000422 


{ 78 


000426 


79 


000432 


SO 


000436 


I 81 


000442 


82 


000446 


83 


000452 


1 84 


000456 


85 


000462 
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CMDDEF BA*CKUP, CMDCCL 

CMDDEF PR0*TECT, CMDCCL 

CMDDEF UNP#ROTECT, CMDCCL. 

CMDDEF OP#ERATOR, DPRCMD 

CMDDEF SP*0OL> CMDSPO 

CMDDEF CR*EAT£, CMDCCL 

CMDDEF KI*LL, CMDKIL 

CMDDEF PA#U5E, CMDPAU 

CMDDEF REC*ALL* CMDRCL 

CMDDEF DET*ACH, CMDDET 

CMDDEF AC*CE5S, CMDACC 

CMDDEF US*E.- CMDUSE 

CMDDEF INITIALIZE, CMDIN.I 

CMDDEF SQ*UEEZE, CMDSQZ 

CMDDEF LIB#RARY, CMDCCL 

CMDDEF TE#CO, CMDCCL 

CMDDEF UC*L, UCLCM1) 

CMDDEF MU*NG, CMDCCL 

CMDDEF CL-HOSE, RDCMD 

CMDDEF GT, RDCMD 

CMDDEF INS*TALL, CMDINS 

CMDDEF LO#AD, RDCMD 

CMDDEF SU*SPEND, CMD8PN 

CMDDEF UNL#OAD, RDCMD 

CMDDEF BQ*OT, CMDBOT 

CMDDEF *5T*0P, CMDBOT 

CMDDEF «SH*UTDOWN, CMDSHT 
TBLEND 



\ 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



33 

34 

35 
36 

37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



000234 
000242 
000244 
000250 
000254 
000260 
000264 
000266 
000270 
000272 
000274 
000276 
000300 
000302 
000304 
000306 
000310 
000312 
000314 
000316 
000320 



000326 
000330 
000332 
000334 
000340 
000342 
000350 
000352 
000360 
000362 
000370 
000372 
000400 
000402 
000410 
000412 
000420 
000422 
000426 
000434 
000436 

000440 
000442 
000444 
000446 
000450 
000462 
000502 
000506 
000514 
000516 
000520 



000000 
000000 
075250 
015270 
075250 
015270 
100040 
01.5270 
075250 
046537 
O 16003 
042614 
04 5130 
042640 
062570 
015172 
016130 
035164 
100020 
101704 
10 5372 
045640 
045676 
045705 
012445 
073376 
015270 
004056 
015270 
004056 
075250 
100020 
075250 
073376 
075250 
073376 
075250 
073376 
075250 
075273 
043327 
075250 
100020 
054730 

000000 
000000 
000000 
000000 



000000 000000 ASDEX: 



012445 
012445 
073376 
073376 



016003 

004051 

003273 

100003 

011504 

035164 

045640 

053600 
114730 



026760 
021113 
05.1646 
000000 
000000 
000000 

000000 



SYCOM 

DKCOM 

SYSAV 

DKSAV 

R50TT 

R50DK 

R50SY 

R50L0G 

R50DSK 

R50KED 

R5QK52 

R50KEX 

R SOP IP 

R50DIR 

R50DUP 

R50IND 

R50TSX 

R50UCL 

R50VIR 

R50LD: 

R50LD0 

R50LD7 

R50C0M 

R50SAV 

MNTDEF 

ALDEX : 

ALDBLK 



AUTHFN: 

KMNNAM: 

CCLNAM: 

INDNAM: 

LDNAM: 

R50KMN: 
HNBUF: 

R50N0: 



WORD 

RAD50 
RAD 50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD 50 
RAD50 
RAD50 
RAD 50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD 50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 
RAD50 

RAD50 

RAD50 

RAD50 

RAD 50 

RAD50 

RAD50 
RAD50 



0, 0, 0, 



/SY 
/DK 



COM/ 
COM/ 



/SY SAV/ 
SAV/ 
/ 
/ 
/ 



/DK 

/TT 

/DK 

/SY 

/LOG/ 

/DSK/ 

/KED/ 

/K52/ 

/KEX/ 

/PIP/ 

/DIR/ 

/DUP/ 

/IND/ 

/TSX/ 

/UCL/ 

/VIR/ 

/LD / 

/LDO/ 

/LD7/ 

/COM/ 

/SAV/ 

/DK DSK/ 

/ALN/ 

/DK ALIGN ALN/ 

/SY ACCESSTSX/ 

/SY TSKMONBAV/ 

/SY CCL SAV/ 

/SY IND SAV/ 

/SY LD 3Y0/ 



/KMON / 
/SY XXX 



TSX/ 



RAD50 /NO / 



000000 
000000 
000000 



DEVUNT 


. WORD 





ASKLNM 


. WORD 





INDRFL 


. WORD 





OUOTFL 


. WORD 





FILNAM 


. BLKW 


5 


XAREA: 


. BLKW 


8 


R50BUF 


. BLKW 


2 


LSTFRM 


. BLKW 


3 


CPUAH: 


. WORD 





CPUAL: 


. WORD 





HANIDX 


. WORD 
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50 


000522 


000000 


000000 


000000 


MNTBEV: 


. WORD 


0, 


0, 0, 




000530 


000000 














51 


000532 


000000 






CMDEND: 


. WORD 







52 


000534 
000542 


000000 
000000 


000000 


000000 


ALCDEV: 


. WORD 


o.. 


0, 0, 



> Pointer past end of current command string 
; Name of dev beina allocated or deallocated 



4 
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3 






4 


000544 


000 


5 


000546 


000000 


6 






7 






8 






9 


000550 


000 


10 


000552 


000001 


11 
12 
13 


000554 


000000 






14 






15 


000556 


000 


16 


000560 


000000 


17 






IS 






19 






20 


000562 


000 


21 


000564 


000000 


22 






23 






24 






25 


000566 


000 


26 


000570 


000522 ' 


27 






28 






29 






30 


000572 


000 


31 


000574 


000522'' 


T-Jfci- 






33 






34 






35 


000576 


001 


36 






37 






38 






39 


000600 


001 


40 


000602 


000000 


41 






42 






43 






44 


000604 


000 


45 


000606 


000000 


46 


000610 


000612 ' 


47 


000612 




48 


000736 




49 






50 






51 






52 


000736 


000 


53 


000740 


000534 ■' 


54 






55 






56 






57 


000742 


00.1 



126 



126 



13: 



141 



134 



135 



135 



160 



127 



156 



156 



Emt arg block to run a program. 

RUNEMT: . BYTE O, 126 
. WORD 

Emt arg block to start a spooler. 

SPGEMT: . BYTE 0, 126 
. WORD 1 
. WORD 

; Emt arg block to control detached jobs. 

i 

DETARG: . BYTE 0, 132 
. WORD 

Emt argument block to set the size of the job 

SIZEMT: . BYTE 0, 141 
SIZVAL: . WORD 

Emt arg block to mount a file structure. 

MNTARG: . BYTE 0, 134 
. WORD MNTDEV 

Emt Brg block to dismount a file structure. 

DMTARG: . BYTE 0, 135 
. WORD MNTDEV 

Emt arg block to clean out all entries in directory cache 

CSHCLN: .BYTE 1,135 

Emt arg block to copy the file status and privileges from a parent job 

CPYCXT: .BYTE 1,160 
. WORD 

Emt arg block to send a message to a line. 

YELEMT: . BYTE 0, 127 

. WORD 

. WORD MSGBUF 

MSGBUF: . BLKB 84. 
MSGEND: 

Emt to allocate a device 

ALDEMT: . BYTE 0, 156 
. WORD ALCDEV 

Emt to deallocate a d e v :i. c e 

DLCEMT: . BYTE 1, 156 



.; Pointer to device spec 
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58 


000744 


000534 ' 


59 






60 






61 






62 


000746 


002 


63 


000750 


000534 ' 


64 






65 






66 






67 


000752 


000 


68 


000754 


000010 


69 


000756 


oooooo 


70 


000760 


0000000 


71 


000762 


003402 •' 


72 






73 






74 






75 






76 


000764 


000 


77 


000766 


000011 


78 


000770 


OOOOOO 


79 


000772 


0000000 


80 


000774 


003402 ' 


81 






82 






83 






84 


000776 


000 


85 


001000 


000010 


86 


001002 


oooooo 


87 


001004 


0000000 


88 


001006 


000060 ' 


89 






90 






91 






92 


001010 


000 


93 


001012 


000011 


94 


001014 


oooooo 


95 


001016 


0000000 


96 


001020 


000060' 


97 






98 






99 






100 


001022 


000 


101 


001024 


000002 


102 


001026 


oooooo 


103 






104 






105 






106 


001030 


000 


107 


001032 


000003 


108 


001034 




109 






110 






111 






112 


001040 


000 


113 


001042 


000004 


114 


001044 


004362 •' 



156 
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. WORD ALCDEV 

Emt to determine if a device is allocated to another user 

TALENT: . BYTE 2, 156 
. WORD ALCDEV 

Emt argument block to read a cached device descriptor block into CDBUF 



126 



126 



126 



126 



126 



126 



126 



CDGEMT: . BYTE 0, 126 

. WORD 10 

CDS ADR: . WORD 

. WORD CD**SZ 

. WORD CDBUF 



Subfunction code <peek) 
Address of block within kernel 
Amt of data to get 
Destination buffer 



CDPEMT: 


. BYTE 


0, 126 




. WORD 


11 


CDPADR: 


. WORD 







. WORD 


CD*$SZ 



INGEMT: 


. BYTE 


0, 126 




. WORD 


10 


INGADR: 


. WORD 







. WORD 


II$*SZ 




. WORD 


IIBUF 



Emt argument block to copy a cached device descriptor block from CDBUF 

back into the kernel data area. 



;Subfunction code (poke) 

j Address of block within kernel 



.WORD CDBUF ; Destination buffer 

Emt argument block to move INSTALL entry from kernel into IIBUF 



Subfunction code (peek) 
Address of block within kernel 
Amt of data to get 
Destination buffer 



Emt argument block to store INSTALL entry into kernel data 



Subfunction code (poke) 
Address of block within kernel 
Amt of data to move 
Source buffer 



Emt arg block to log off 4 the current job. 

0, 126 

2 

; 0==>De fault time to drop DTR 

Emt to update running copy of a handler. 



NPEMT: 


. BYTE 


0, 126 




. WORD 


11 


NPADR: 


. WORD 







. WORD 


II*»SZ 




. WORD 


IIBUF 



OFFEMT: . BYTE 
. WORD 
. WORD 



HUPARG: . BYTE 0, 126 

. WORD 3 

. BLKW 2 

Emt to reboot the system. 

BOTEMT: .BYTE 0, 126 

. WORD 4 

. WORD START 



* 



c 

< 
< 
t 

i 



i 
i 
i 
i 
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115 








1 16 








117 








US 


001046 


000 


126 


119 


001050 


000005 




120 


001052 


000000 




121 








122 








123 








124 


001054 


000 


126 


125 


001056 


000012 




126 


001060 


000000 




127 








128 








129 








130 


001062 


001 


126 


131 


001064 


000012 




132 


00 1 066 


000000 




133 








134 








135 








136 


001070 


0000 


151 


137 


001072 


000000 




138 


001074 


000001 




139 








140 








141 








142 








143 


001076 


000 


126 


144 


001100 


000014 




145 


001102 


000000 




146 


001104 


000000 




147 


001106 


000000 




148 








149 








150 








151 


001110 


000 


150 


152 


001112 


oooooo 




153 








154 








155 








156 


001114 


000 


161 


157 


001116 


00.! 


001 


158 


001120 


120 


020 


159 


001122 


001 


000 


160 


001124 


oooooo 




161 








162 








163 








164 


001126 


001 


161 


165 


001130 


001 


000 


166 








167 








168 








169 


001132 


002 


161 


170 


001134 


000 


000 


171 









; Edit to force logoff of a job. 

KILEMT: . BYTE 0, 126 
. WORD 5 
. WORD 

Emt to suspend execution of a job 

SJEMT: . BYTE 0, 126 
. WORD 12 
. WORD 

Emt to resume execution of a job 

RJEMT: . BYTE 1, 126 
. WORD 12 
. WORD 

EMT arg block to set "hold" mode for a spooled log file 

SPLHLA: .BYTE LOGCHN, 151 
. WORD 
. WORD 1 

EMT arg block to copy data from the context block of another job 
into our context block. 

EMCXCP: . BYTE 0, 126 

. WORD 14 

. WORD 

. WORD O 

. WORD 



j# of job uie are copying from 
; Address of item being copied 
j Number of bytes to copy 



EMT arg block to set the job execution priority 

PRIEMT: . BYTE 0, 150 
. WORD 

EMT arg block to create a window for this job 

MAKWIN: . BYTE O, 161 

. BYTE 1, 1 

. BYTE 80. , 16. 

.BYTE 1,0 

. WORD 

EMT arg block to select window 1 as the current window 

MAPWIN: . BYTE 1, 161 
.BYTE 1,0 

EMT arg block to delete all temporary display windows for the job 

DELWIM: . BYTE 2, 161 
. BYTE 0, 



( 
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172 
173 

174 001136 000 136 

175 001140 000000 

176 001142 000000 

177 001144 000000 

178 001146 000000 
179 

180 

181 

182 001150 00 .i 136 

183 

184 

185 

186 001152 002 157 

187 001154 000000 



■> Emt arg block to initiate performance monitoring. 

i 

M0NAR1: BYTE 0, 136 

MNBASM: . WORD 

MNTOP: . WORD O 

MNBPC: . WORD 

MNFLGS: . WORD 

Emt ar$ block to start performance monitoring. 

M0NAR2: . BYTE 1, 136 

; Emt arg block to broadca&t job status change info to monitoring jobs 



GENMON: . BYTE 2, 157 
. WORD 



; Store value to broadcase here 
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i 


001156 




2 


001362 




3 


001362 




4 


001402 




5 


001402 




6 




00140;,! 


7 




001402 


8 


003402 




9 






10 


003426 




11 




003736 


!? 






13 






14 






15 






16 


003736 




17 


004336 


200 


IS 


004337 


000 


19 


004340 


000 


20 


00434.1 


000 


21 


004342 


000 


22 


004343 


000 


23 


004344 


000 


24 


004345 


1 23 




004350 


000 


25 


004351 


123 




004354 


11.1. 




004357 


040 


26 






27 






28 







131 

131 

116 
000 



Monday 21 


-Dec -87 1J 


. BLKW 


66. 


: . BLKW 


S. 


. BLKW 


512. 


~ 


BLKO 


K= 


BLKO 


. BLKW 


10. 



40 Paqe V 



CMDBUF 

CBFEND 

KEYBUF 

KEYEND 

BLKO: 

KCSIBF 

INBUF 

CDBUF: 

; TSKMON STACK 

. BLKW 
KMSTK 

* 

; BYTE DATA 



100. 





; PRINT BUFFER 








PRTBUF 


. BLKB 


cs. 56. 






P8UFND 


. BYTE 


200 






NOFLAC 


. BYTE 









DOLRAT 


. BYTE 









DOTAT: 


. BYTE 









CDLEQL 


. BYTE 









NOUCL: 


. BYTE 









NUMMNT 


. BYTE 







072 


SYTXT: 


. ASCIZ 


/SY: 


/ 


072 


SYINTX 


. ASCIZ 


/SY: 


I 


1 04 











; END OF 


CMDBUF 










; Used by 


SEARCH to 


hold 


key 


words 


; End of 


KEYBUF 










; OVERLAY 


WITH BLKO 










j OVERLAY 


WITH BLKO 










; Should 


be at least 


as 


larg 


e 


as 



INDICATES *@ SCANNED 
INDICATES #£ SCANNED 
INDICATES : - SCANNED 
Non~zero==G-Don 't call UCL for this 
Counts number of mounted devices 



command 



IND / 



. EVEN 



c 



004362 
004364 



TSKMN1 — TSX-Plus 
Job Initialization 



i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004370 
004376 
004400 



004404 
004412 
004414 
004430 
004436 
004444 



004452 
004454 
004460 
004464 
004470 
004474 



004476 
004504 
004510 
004514 
004516 
004522 
004526 
004534 
004542 
004550 
004556 
004564 
004570 
004574 
004600 
004602 
004604 
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. SBTTL Job Initialization 
i ENTER TSKMON AT KMNSTR. 



000240 
116701 



032761 
001402 
000167 



026727 
00 1 406 

016761 
042761 
042761 



010105 
070527 
062705 
012704 
112725 
077403 



012767 
016700 
072027 
001002 
012700 
010067 
012767 
012767 
1 1 2767 
1 1 2767 
1 1 2767 
012703 
012704 
0.12700 
1 1 2324 
077002 
1 1 2767 



START: 



OOOOOOG 



NOP 
MOVB 



CORUSR, Rl 



; DEBUGGING BPT INSERTION POINT 
; GET USER INDEX # 



INITIALIZATION PERFORMED FOR LINE THE FIRST TIME 
TSKMON IS ENTERED. 



OOOOOOG OOOOOOG 



001026 



33 IT 
BEQ 
JMP 



#*KINIT, LSW<R1> i IS THIS 1ST ENTRY FOR THIS LINE? 

10* ■> BR IF YES 

KMN0T1 



Make sure TSGEN hasn't been modified without relinking TSKMON. 



OOOOOOG 123456 10* 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



CMP GENTOP, #1234 56 ; DOES THIS LOOK LIKE THE TOP OF TSGEN? 

BEQ 22* J BR IF OK 

FERR #REGEN ; NEED TO RELINK TSKMON 

22*: MOV MINTIM, LC0NTM(R1 > ; SET JOB LOG-ON TIME 

BIC #*CFKIL, LSW6<R1) i IN CASE OF ~Q'"Q DURING GETSYP 

B.TC #*CTRLC, LSW<R1> > DO NOT DO CONTROL -C ABORT 

Initially set the job name to all blanks 



000006 
OOOOOOG 
000014 
000040 



24*: 



MOV R1,R5 

MUL #6, R5 

ADD #LUNAME, R5 

MOV #12. , R4 

MOVB #' , <R5) + 

SOB R4, 24* 



GET JOB INDEX # 

* 12. BYTES PER ENTRY 

POINT TO USER NAME ENTRY FOR THIS LINE 

> SET USER NAME TO BLANKS 



Initialize cells in job context block 



OOOOOOG OOOOOOG 

OOOOOOG 

000012 

177774 
OOOOOOG 

OOOOOOG OOOOOOG 
000004G OOOOOOG 
OOOOOOG OOOOOOG 
000056 OOOOOOG 



00000 1G 



000200 
OOOOOOG 
OOOOOOG 
000006 



OOOOOOG OOOOOOG 



MOV #CFSTK, CFSP 

MOV DFJMEM, RO 

ASH #10. ,R0 

BNE 25* 

MOV #177774, RO 

25*: MOV RO, MAXMEM 

MOV #NAMTOP, UHIMEM 

MOV #SPUBUF+4, SXBPNT 

MOVB #MAXPR I , MX JPR I 

MOVB # ' . i KMPRMT 

MOVB #200, KMPRMT+1 

MOV #STDNAM, R3 

MOV #UFQRM, R4 

MOV #6, RO 

3*: MOVB <R3>+> (R4H- 

SOB RO, 3* 

MOVB #SC*ERR, ERRSEV 



COMMAND FILE STACK 

GET MAX # KB JOB IS ALLOWED TO USE 

CONVERT TO ADDRESS 

BR IF DIDN'T OVERFLOW 64KB 

SET MAX MEMORY AS 64KB 

SET AS TOP OF MEMORY FOR JOB 

HIGHEST LEGAL ADDRESS FOR JOB 

SPOOL FILE BUFFER 

SET MAXIMUM JOB PRIORITY 

SET UP DEFAULT KMON PROMPT <". ") 

TERMINATE PROMPT STRING 

SET UP CURRENT (DEFAULT) SPOOL FORM NAME 



ERROR ABORT SEVERITY LEVEL 



Start job with all privileges granted. 

Privileges may be changed by running LOGON or by use of 

the SET PROCESS/AUTH/PRIVMlist) command. 



004612 01 



'00 OOOOOOG 



MOV 



#PVNPW, RO 



Get # words in each privilege vector 



TSKMN1 ■ — TSX-P.!. us 
Job Initialization 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



004616 
004620 
004624 
004630 
004634 
004640 
004644 
004650 
004652 
004656 
004660 
004666 
004670 
004674 
004700 
004704 
004710 
004714 



004720 
004724 

004726 



004746 
004752 
004754 
004774 
004776 
005000 
005002 
005004 
005006 
005012 
005020 
005026 
005062 



005070 
005076 
005100 
005106 
005110 
005116 
005120 



005126 
005134 



005002 

012703 
010362 
010362 
010362 
010362 
062702 
077013 
020127 
003016 
032761 
00 1 4 I 2 
012700 
040067 
040067 
040067 
040067 
004767 



105767 
00 3 410 



016705 
00 1 446 

103435 
010100 
006200 
005300 
070500 
012702 
012762 
016762 



126727 
00 1 4 1 3 
126727 
00100/1 
052761 
000403 
052761 



126727 
00 1 003 



177777 

0000000 

0000000 

0000000 

OOOOOOG 

000002 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000000 



OOOOOOG 



77*: 



32*: 



CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
SOB 
CMP 
BGT 
8 1 T 
DEO 
MOV 
BIC 
BIC 
BIC 
BIC 
CALL 



j Bet index for 1st word 

j Get all privilege flags turned on 

; Authorized privileges 

.; Set privileges 

; Command file privileges 

; Current (program) privileges 

i Increment vector index 

; Set all privileges 

; Is this a primary line? 

; Br if not 

#*NQVLN, 1LSW2<R1 ); Disallow subprocess usage? 
32$ • Br if don't need to disallow subprocesses 

#P2*VIR.. RO > Get subprocess privilege flag 
RO, PRIVA2 J Remove subprocess privilege 
RO, PRIVS2 
RO, PRIVFO 
RO, PR1VC0 
RSTPRV j Setup some other privilege flags 



R2 

#177777, R3 
R3, PRIVA0<R2) 
R3, PRIVSCMR2) 
R3, PRIVF0<R2> 
R3, PRIVC0<R2) 
#2, R2 
RO, 77* 
Rl, #LSTPL 
32* 



Open spool file channel 

TSTB NSPLDV i ARE THERE ANY SPOOLED DEVICES? 

BEG 28* J BR IF NOT 

.REOPEN #XAREA, #USPLCH, #SPLCHN > OPEN CHANNEL FOR WRITES TO SPOOL FILE 



I n i t 

<Say 



ialize TSXUCL data base for this job 
that there are no user-defined commands yet) 



OOOOOOG 



28*: 



001402' 

1 77777 OOOOOOG 

OOOOOOG OOOOOOG 



MOV 

BEQ 

. LOOKUP 

BCS 

MOV 

ASR 

DEC 

MUL 

MOV 

MOV 

MOV 

. WRITW 

. CLOSE 



UCLBLK, Rt: 

2* 

#XAREA, #.1 

2* > 

R1,R0 ; 

RO ; 

RO ; 

RO, R5 ; 

#BLKO, R2 ; 

#~~1, UC*NDC<R2) ; 

VUCLMC, UC*MDC ( R2 ) 



; Get # blocks in file per job 
; Br if TSXUCL data file not needed 
#UCLDAT ; Lookup TSXUCL data file 
; Br if not there 
; Get job index number 
; Convert to job number 
;Make first job # 

; Compute block number of data for this 
; Point to data buffer 
Set flag saying TSXUCL should init data 
; Set maximum allowed number of commands 



job 



#XAREA, #1, R2, #256. , R5 ; Write out data for job 
#1 ; Close TSXUCL file 



005136 05276.1 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 000001 
OOOOOOG OOOOOOG 



i Set default editor 

j 

2*: CMPB VEDIT, #EDIT 

BEQ 7* 

CMPB VEDIT, #TECO 

BNE 21* 

B I S #*TECO, LSW5 < R 1 ) 

BR 7* 

21*: BIS #*KED, LSW5<R1) ; DEFAULT EDITOR MUST BE KED 



IS DEFAULT EDITOR EDIT? 

BR IF YES 

IS DEFAULT EDITOR TECO? 

BR IF NOT 

SET DEFAULT EDITOR FOR JOB 



Set default UCL FIRST/MIDDLE/LAST 



7*: 



CMPB 

BNE 

BIS 



VUCLOR, #1 ; SET UCL FIRST? 
30* ; BR IF NOT 

#*UCLCF, LSW7CR1 ) 



TSKMN1 — TS.X-PIus Keyboard Hon 
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115 
116 
117 
118 
119 
120 
121 
122 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
14S 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



005141 
005152 
005154 
005162 
005170 
005172 



126727 

oo i oo:j 

052761 
126727 
001003 
052761 



0000000 000002 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000003 



OOOOOOG OOOOOOG 



30*: CMPD VUCL0R,#2 ; SET UCL MIDDLE? 

13NE 29$ i BR IF NOT 

BIS #*UCLCM, LSW7(RJ ) 

29*: GMPB VUCLOR, #3 ; SET UCL LAST? 

BNE 27* J BR IF NOT 

BIS #*UCLCL.. LSW7 < H 1 ) 



; Set default SL mode 
005200 052761 OOOOOOG OOOOOOG 27*: BIS #*SLLET» LSW7<R1 > ; Def aul t SL substitution on 

; S & t* default wildcard f 1 a f* 
31*: 



005206 
005212 
005214 
005222 
005226 
005230 
005234 



005236 
005244 
005246 



005252 
005260 
005264 



005266 
005272 



005727 
00 1 403 
052761 
020127 
003022 
020127 
00302.1 



032761 
001402 
00476/ 



016767 
012700 
104375 



004767 
000402 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



8*: 



TST 
BEQ 
BIS 
CMP 
BGT 
CMP 
BGT 



#WILDFL 

8* 

#*WILD, LSW5<R1) 

R 1 , #LSTDL 

12* 

R 1 , #LSTPL 

1* 



EXPLICIT OR IMPLICIT WILDCARDS? 

BR IF EXPLICIT 

SET IMPLICIT WILDCARD FLAG 

REAL OR VIRTUAL LINE? 

BR IF VIRTUAL 

REAL. OR DETACHED? 

BR DETACHED 



OOOOOOG OOOOOOG 
OOOOOOG 



See if we need to get a system password <primary line only). 

BIT #*SYSPS, LSW2<Rl);Do we need to accept a system password? 

BEQ 13* ; Br if not 

CALL GETSYP i Accept system password 



Mount SY device for this job (primary line only). 



173012 
000566 ' 



173242 13*: 



MOV R50SY, MNTDEV 
MOV #MNTARG, RO 
EMT 375 



i SET SY AS DEVICE TO MOUNT 
; MOUNT SY 



Terminal dependent initialization for primary lines. 



004702 



CALL 
BR 



TRMINI 
1* 



; Do terminal-dependent initialization 



005274 00476/ 005156 



005300 03276.1. OOOOOOG 

005306 001403 

005310 012761 OOOOOOC 



005316 004767 005774 
005322 016161 OOOOOOG 



005330 004767 005254 



OOOOOOG 
OOOOOOG 



Initialization for subprocesses only. 

Print n> to show which subprocess we are switching to. 

12*: CALL VIRINI ; Do virtual line initialization 

Do some initialization f : or detached jobs 

1*: BIT #*DETCH, LSW(Rl) ils this a detached job? 
BEQ GRTINI i Br if not 

MOV #*ECHO!*LC!*DEFER, LSW2(R1) ;Init control flags 



Print TSX greeting message 



OOOOOOG 



GRTINI: CALL 
MOV 



PRTGRT '> Print the TSX-Plus logon greeting 

LSW2(R1)>LSW2S<R1) ; SAVE IN CASE OF CTRL-C REENTRY 



If this job has a parent job., copy file context and privilege from parent 
CALL CPYPRN ;Copy info from parent job 



TSKMN1 — TSX-Plus Keyboard Hon 
Job Initialization 



172 








173 








174 








175 


005334 


05276.1 


OOOOOOG 000000 


176 








177 








178 








179 


005342 


020127 


0000000 


ISO 


005346 


101004 




181 


005350 


016102 


OOOOOOG 


182 


005354 


001407 




183 


005356 


00040;? 




184 


005360 


012702 


0000000 


185 


005364 


105712 




186 


005366 


001402 




187 


005370 


004767 


006324 


183 








189 








190 








19.1. 








192 


005374 


012767 


OOOOOOG 173552 


193 


005402 


012700 


001152' 


194 


005406 


104375 




195 


005410 


005761 


OOOOOOG 


196 


005414 


00 1 406 




197 


005416 


012767 


OOOOOOG 173530 


198 


005424 


012700 


001152' 


199 


005430 


104375 
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Set flag saying job initialization has been done 

BIS #*KINIT. LSW<R1> i SAY LINE HAS BEEN INITIALIZED 

See if this line has an associated start-up command file. 

; Is this a virtual line? 

j Br if yes 

; IS THERE A START-UP COMMAND FILE? 

; BR IF NOT 

1*: MOV #SBPSUF.. R2 ; Point to job context cell with file name 

; IS FILE NAME NULL? 
; BR IF YES 
; Set up start-up command file for execution 

Broadcast status message to monitoring jobs telling them that 
this job logged on. 

Set logged— on status code 

Point to EMT argument block 

Tell monitoring jobs that me are initiated 

Do we have a parent job? 

Br if not 

Set status code saying we have logged on 

Point to EMT argument block 

Broadcast status code that job logged on 



CMP 


Ri, #LSTDL 


BHI 


1* 


MOV 


LSUCF<R1)> R2 


BEQ 


61* 


BR 


2$ 


MOV 


#SBPSUF, R2 


TSTB 


<R2) 


BEQ 


61$ 


CALL 


SETSUF 



MOV 


#JS*ON, GENMON+2 


MOV 


#GENMGN, RO 


EMT 


375 


TST 


LPARNT(Rl) 


BEQ 


KMN0T1 


MOV 


#JS*LOG, GENMON+2 


MOV 


#GENMON.. RO 


EMT 


375 



TSKMNi — 
Entry to 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

on 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



• T3X- 
KMON 
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SBTTL Entry to KMON 



005432 
005440 
005446 
005452 
005456 
005462 
005466 
005472 
005476 
005500 
005504 
005510 
005514 
005522 
005530 
005534 
005542 
005544 
005550 
005554 
005562 
005570 
005572 

005576 
005602 



005604 
005612 
005614 
005620 
005626 

005632 
005636 
005640 
005646 
005652 
005656 
005662 

005670 
005676 
005702 
005706 
005712 

005714 
005722 
005726 



016761 
016761 
005067 
005067 
005061 
105067 
.105067 
005767 
001401 
005067 
004767 
005061 
042761 

004767 
032761 
001407 
004767 
004767 
042761 
032761 
00 1 402 
000167 

116702 
00 1 467 



1 1 2767 
006302 
016203 



005767 
001414 

012703 
012704 

004767 



016702 
004767 
020227 
000407 



016700 
004767 



End of initialization code that is performed during job login. 
Begin processing that is performed each time KMON is entered. 



1 72764 

1 72760 

0000000 

0000000 

0000000 

0000000 

ooooooo 

000000G 

ooooooo 
ooooooo 
ooooooo 
ooooooo 

ooooooo 
ooooooo 

ooooooo 
ooooooo 
ooooooo 
ooooooo 

ooooooo 

ooooooo 



ooooooo 
ooooooo 



ooooooo 



ooooooo 



ooooooo 
ooooooo 



KMN0T1: MOV 
MOV 
CLR 
CLR 
OLR 
CI...RB 
CI. RE 
TST 
BEQ 
CLR 
CALL 

4$: CLR 
BIC 

. vLUdL 

CALL 
BIT 
BEO 
CALL 

BIC 

7*: BIT 

BEG 

JMP 

; CHECK EOR 

6$ : MOVB 

BEQ 



R5GKMN, LPRGHR1 

R50KMN+2, LPRG2< 

UTRPAD 

UEPTRP 

LSCCA(Rl) 

SERFLO 

RUNARO 

UCHAN 

4* 

UCHAN 

PRGALL 

LTSCMD(Ri) 

#*SETRN, LSWV<Ri 

#RUNCHN 



AS RUNNING PROGRAM NAME 



SW6(R1> 



RSTPRV 
#*DUPRN, 
7* 

PRGALL 
LDCLEN 

#*DUPRN> LSW6<R1 
#*DOOFF,LSW<Ri> 
6* 

CMDOFF 
SYSTEM ABORT 
ABRTCD, R2 
NOABRT 



>;SET "KMON" 
Rl) 

CLEAR USER TRAP CONTROL 

RESET FLOATING POINT TRAP CONTROL 

RESET . SCCA TRAP CONTROL 

DO . HERR 

No argument string from RUN command 

DID USER DO A . CDFN? 

BR IF NOT 

UNDO THE . CDFN 

PURGE ALL CHANNELS 

NO PENDING SPECIAL COMMAND 
);Say SETUP is no longer running 

CLOSE PROGRAM SAV FILE 

Reset job privileges 

WAS DUP THE PROGRAM THAT EXITED? 

BR IF NOT 

PURGE ALL CHANNELS 

DO "LD CLEAN" OPERATION 

SAY DUP IS NO LONGER RUNNING 

SHOULD WE LOG USER OFF? 

BRANCH IF NOT 

FORCE LOGOFF 



; WAS USER ABORTED? 
; BRANCH IF NOT 



USER WAS ABORTED — PUT OUT ABORT MESSAGE. 



000010 OOOOOOG 
000176' 

OOOOOOO 



001402 •' 
OOOOOOG 
OOOOOOG 



1*: 



OOOOOOG 
OOOOOOG 
120000 



OOOOOOG 
OOOOOOG 



MOVB 

ASL 

MOV 

. PRINT 

. PRINT 

Print name 
TST 
BEQ 
. PRINT 
MOV 
MOV 
CALL 
. PRINT 

PUT OUT LOC 
. PRINT 
MOV 
CALL 
CMP 
BR 

BLOS 
. PRINT 
MOV 
CALL 



#10, UERSEV 

R2 

ABTMSG(R2), R3 

#MONTXT 

R3 
of file that cam 

ERRSPC 

1* 

#FILERM 

#BLKO, R3 

#ERRSPC, R4 

EDTFIL 

#BLKO 
AT I ON OF ABORTED 

#LOCMSG 

ABRTAD, R2 

OCTPRT 

R2, #120000 

10* 

10* 

#OVLYEQ 

ABRTOV, RO 

PRTR50 



SAY ERROR SEVERITY LEVEL = SEVERE 
CVT ERROR CODE TO WORD INDEX 
GET ADDR OF ERROR MESSAGE 



ed the error 

; Do we have a file spec to print? 

; Br if not 

;Print heading message 

i Point to buffer where result is to be stored 

;Point to RAD50 file spec 

j Convert file spec to ascii 

;Print the file spec 
INSTRUCTION. 

GET ADDR OF ABORT INST 
PRINT THE OCTAL VALUE 
IN OVERLAY REGION? 
**# skip overlay this 
BR IF NOT 

PRINT " OVERLAY = " 
GET OVERLAY NAME 
AND DISPLAY IT 



version #*# 
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5S 


005732 




10*: 


. PRINT 


59 


005740 


005067 


0000000 


CLR 


60 


005744 


105067 


0000000 


CLRB 


61 


005750 


042737 


004440 000000G 


BIG 


62 


005756 


105067 


0000000 


CLRB 



#CRLF 

ABRTAD i CLEAN ABORT ADDR 

ABRTCD ; AND CODE 

#004440, @#JSWLOC; RELEASE CHAIN AREA, PASLIN, 

CINFLG ;KILL ANY CHAIN REQUEST 



AND SCHAIN 
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i 
2 
3 
4 
5 
6 
7 
S 
9 
10 
li 

., n 

.1 £T„ 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
~~~^> 39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



User did not abort. See if this is a .CHAIN request 



005762 
005766 
005774 
005776 
006002 
006010 
006014 
006016 



006022 
006026 



006030 
006036 
006044 
006052 
006060 
006066 
006072 
006076 
006102 
006106 
006114 
006122 
006130 
006136 
006144 
006152 
006154 
006162 
006166 
0061/0 
006174 



006200 
006206 
006214 
006216 
006222 
006230 
006236 
006240 
006244 



005067 
032761 
001405 
105067 
042737 
105767 
00 1 402 
000167 



012700 
104375 



012761 
016161 
042761 
042761 
042761 
005061 
005061 
005061 
005061 
042761 
042761 
042761 
042761 
042761 
032761 
001403 
052761 
016700 
00 1 404 
004767 
005067 



156767 
126767 
103413 
004767 
042761 
032761 
001402 
004767 
105067 



OOOOOOG 
OOOOOOC OOOOOOG 



0000000 

OOOOOOC OOOOOOG 
OOOOOOG 1$: 

OOOOOOG 



001132 



000040 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



NOABRT: CL.R 
BIT 
BEQ 
CLRB 
BIC 
TSTB 
BEQ 
JMP 



ERRSPC ; CLEAR ANY ERROR FILE SPEC 

#*CFKIL!$CFABT,LSW6<R1> ; REQUEST TO ABORT ALL COM FILES? 
1* ; BR IF NOT 

CINFLG j CLEAR ANY CHAIN REQUEST 

#PASLIN!SCHAIN, S#JSWLOC i KILL ANY PASSED COMMAND 
CINFLG ; IS THIS .CHAIN REQUEST? 

NOCIN ; BRANCH IF NOT 

KDOCIN > GO DO THE CHAIN 



Not . CHAIN request so enter normal KMON. 

Delete any temporary display windows for this job 



NOCIN: MOV #DELWIN, RO 
EMT 375 

Clean up various cells 



OOOOOOG OOOOOOG 
OOOOOOG 3$: 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 4$: 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 1*: 



MOV #BLANK, LRBFIL(R 

MOV LSW2S<R1), LSW2< 

BIC #KL4CLR,LSW4<R1 

BIC #*VTESC,LSW5<R1 

BIC #*DEBUG!$RN10P, 

CLR LNSPAC(Rl) 

CLR LRDTIM(Rl) 

CLR LAFSIZ(Rl) 

CLR LFWLIM(Rl) 

BIC #KL3CLR,LSW3(R1 

BIC #*CFDCC, LSW4<R1 

BIC #<*NOWTT ! *CHACT 

BIC #*N0INT,LSW7<R1 

BIC #*NTGCC,LSW9(R1 

B I T #*SNWTT, LSW6 ( R 1 

BEQ 3* 

BIS #*NOWTT, LSW5 < R 1 

MOV CFSPND, RO 

BEQ 4* 

CALL CFSTRT 

CLR CFSPND 



; Point to EMT argument block 

; Delete all temporary windows for job 



1 ) i USE SPACE FOR RUBOUT FOR KMON 
R 1 ) ; RESET STATUS OF LSW2 



) 

);TURN OFF VT52 ESC -LETTER ACTIVATION 

LSW9(Rl);Not debugger, I/O page 

; NO SPECIAL ACTIVATION CHARS 

i CLEAR TT READ TIME-OUT VALUE 

i CLEAR FIELD WIDTH ACTIVATION 

; CLEAR FIELD WIDTH LIMIT 
)i CLEAR MISC BITS IN LSW3 
>; CLEAR DEFERRED-CTRL-C FLAG 

>, LSW5(R1);TURN OFF NO WAIT AND SINGLE CHAR ACT 
)> Reset non-interactive run switch 
)i Clear non-terminating . GTLIN ctrl-C flag 
);DID USER DO "SET TT NOWAIT"? 

; BR IF NOT 
); SET NO-WAIT FLAG 

; WAS A COMMAND FILE SUSPENDED? 

; BR IF NOT 

; Restart it 



Check if program specified an error severity level. 



BISB UERSEV, INDERR 

CMPB UERSEV, ERRSEV 

BLO 1* 

CALL ABRTCF 

BIC #*CCLRN, LSW5<R1) 

BIT #<*INDAB,LSW7<R1) 

BEQ 1* 

CALL INOABT 

CLRB UERSEV 

Purqe all of user's channels 



SAVE ERROR STATUS FOR IND 

DID PROGRAM SPECIFY ERROR SEVERITY? 

BR IF OK 

SEVER ERROR — ABORT COMMAND FILE 

SAY CCL NOT RUNNING 

DOES HE WANT TO ABORT IND COMMAND FILES? 

BR IF NOT 

Abort IND execution 

CLEAR ERROR STATUS 
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58 


006250 


004767 


OOOOOOG 






CALL 


59 


006254 


03276.1 


0000000 


OOOOOOG 




BIT 


60 


006262 


00 .1 403 








BEG 


61 


006264 


00476/ 


OOOOOOG 






CALL 


62 


006270 


000406 








BR 


63 


006272 


032761 


OOOOOOG 


OOOOOOG 


2$: 


BIT 


64 


006300 


001400 








BEG 


65 


006302 


004767 


OOOOOOG 






CALL 


66 


006306 


042761 


OOOOOOG 


OOOOOOG 


5$: 


BIC 


67 










5 




68 










.• 


Tell any 


69 










.» 




70 


006314 


005761 


OOOOOOG 




6*: 


TST 


71 


006320 


00 1 003 








BNE 


72 


006322 


005767 


OOOOOOG 






TST 


73 


006326 


00 1 406 








BEG 


74 


006330 


012700 


0011 52' 




7*: 


MOV 


75 


006334 


012760 


OOOOOOG 


000002 




MOV 


76 


006342 


104375 








EMT 



PRGALL ; PURGE ALL CHANNELS 

#*CFKIL, LSW6<R1>; Should we abort IND and command files? 

2* ; Br i f not 

INDABT ; Abort IND and nested command files 

5* 

#*CFABT, LSW6(R1>; SHOULD WE ABORT ALL ACTIVE COMMAND FILES? 

6* j BR IF NOT 

ABRTCF i ABORT ALL ACTIVE COMMAND FILES 

#*CCLRN, LSWStRl); STOP EXECUTION OF CCL 



Tell any jobs that are monitoring us that we just entered TSKMON 



LM0NHD<R1 ) 

7% 

SMONHD 

CKPASL 

#GENMON> RO 

#JS*KMN, 2<R0> 

375 



Are use being monitored?" 

Br if yes 

Anyone monitoring all jobs? 

Br if not 

Point to EMT argument block 

Set status code 

Broadcast status message 



4 

( 



TSKMNi -- 
Entry to 

.1. 

2 
r> 

4 

5 

6 

7 

S 

9 

10 

11 

12 

.13 

14 

15 

16 

17 

IS 

19 

20 

HI 

£7- J. 

on 

CO. 

23 

24 

hi; 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



■ rsx-^ius 

KMON 
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age 1 3 



006344 
006352 



006354 
006362 
006364 
006372 
006374 
006400 
006404 



006424 
006426 
006432 
006436 
006440 
006442 
006444 
006450 
006456 
006464 
006472 
006476 



006502 
006510 
006512 
006516 
006520 
006524 
006526 



032737 
00 1 546 



032761 
001006 
032737 
00 1 002 
004767 
005767 
001531 



006106 032761 
006414 001432 
006416 126727 



001026 
012703 
012702 
1 1 2322 
00 1 376 
00 5302 
010267 
042761 
042737 
052737 
105267 
000167 



032761 
001403 
012705 
000403 
004767 
010005 
004767 



See if program passed a s>et of command lines to Kmon 
when it exited. 



000000C OOOOOOG CKPASL: BIT 

BEQ 



#PASLIN!SCHAIN, @#JSWL0C; DID PROGRAM PASS US A COMMAND? 

4$ * BR IF NOT 



000000C OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
0000 10G 



BIT 


#*CCLRN)*INDRN* L 


BNE 


5* 


BIT 


#SCHAIN* ©#JSWLOC 


BNE 


5* 


CALL 


ABRTCF 


TST 


CINDAT+10 


BEQ 


4* 



OOOOOOG OOOOOOG 

0000 12G 000077 

0000 13G 
001156' 



172062 

OOOOOOG OOOOOOG 



0000000 
OOOOOOG 
175645 
001762 



OOOOOOG 
OOOOOOG 



Program did pass a set of commands to Kmon. 

Set it up to look like a fake command file. 

That is> the commands are stored in the command file buffer so that 

they are read as if they came from a command file* but no actual 

file :t '-. open. 

Determine if we should abort the currently open command file. 

iW5(Rl>iIS COL OR IND RUNNING? 
BR IF YES 

SHOULD BE ABORT CURRENT COMMAND FILE? 
BR IF NOT 

ABORT ALL CURRENTLY OPEN COMMAND FILES 
5«: TST CINDAT+10 ; DID HE PASS US A NULL COMMAND FILE? 

IF YES THEN WE ARE FINISHED 

If command line is being passed to us by the TSXUCL program* 
check to see if this is a case where TSXUCL could not recognize 
the command and is passing it back to us for processing. 
If so* just move the command to the command buffer and then proceed 
with normal KMON command checking. 

program running? 

throwing command back to us? 

:hain data area (past "?" char) 
ommand buffer 
16*: MOVB (R3)+* (R2)+ , Move command to command buffer 

asciz null moved 
lint to null at end of command 
;er to end of command 

program no longer running 
ear command-passed flag 
jer-case input 

► aying not to call TSXUCL again 
the command 

If we have pending commands in the command file buffer* compress 
them to make room for new commands. 

If input is coming from a real command file we do not need to 
compress since we will reread buffer when we hit end of new commands. 



BIT 


#*UCLRN*LSW7<R1 ) 


Is TSXUCL 


BEQ 


15* 


Br if not 


CMPB 


CINDAT+12* #•'? 


Is TSXUCL 


BNE 


15* 


Br if not 


MOV 


#CINDAT+.13*R3 


Point to c 


MOV 


#CMDBUF* R2 


Point to c 


MOVB 


(R3)+* (R2)+ 


Move comma 


BNE 


16* 


Loop till 


DEC 


R2 


Make R2 po 


MOV 


R2* CMDEND 


Save point 


BIC 


#*UCLRN* LSW7(R1) 


Say TSXUCL 


BIC 


#PASLIN!SCHAIN*@#JSWLOC , CI 


BIS 


#LCBIT, @#JSWLOC 


Enable low 


INCB 


NOUCL 


Set flag s 


sJMP 


IDNCMD 


Go process 



OOOOOOG OOOOOOG 15*: 

001000G 

OOOOOOG 11*: 

OOOOOOG 12*: 



BIT 


#*CFOPN* LSW4<R1 > * 


BEQ 


11* i 


MOV 


#CFBUF+512. * R5 * 


BR 


12* 


CALL 


CFSQEZ i 


MOV 


R0*R5 i 


CALL 


PUSHCF i 



IS A COMMAND FILE OPEN? 

BR IF NOT 

SAY ENTIRE COMMAND FILE BUFFER IS FREE 

COMPRESS INFO IN CURRENT COMMAND FILE BUFFER 
SAVE ADDRESS OF END OF FREE SPACE IN BUFFER 
OPEN A NEW COMMAND FILE (PUSH CURRENT ONE) 



006532 
006536 
006540 
006544 
006546 
006554 
006564 
006570 
006572 

006574 
006602 
006606 
0066 1 
006612 



006614 
006616 
006620 

006622 



TSKMN1 — TSX-PIus 
Entry to KMON 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

96 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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006624 
006632 
006634 
006642 
006644 
006652 
006660 
006662 

006670 
006676 
006704 



006712 
006720 
006722 



006726 
006732 
006734 
006740 
006742 



012703 
012302 
020227 
003407 
042737 

012704 
1 1 2324 
001005 

112764 
112724 
077210 
0204013 
10135:5 



020405 
103002 

10 5024 
0007 74 



032761 
001004 
032737 
00 i 403 
052761 
032761 
001403 
052761 

042761 
042737 
042761 



032761 

001402 
000167 



Move command line from chain area to command file buffer 



0000100 

000270 

OOOOOOC OOOOOOG 10*: 

0000000 



MOV 
MOV 
CMP 
BLE 
BIC 



#CINDAT+10, R3 

(R3)+, R2 

R2, #<1 000-51 0> 

6* 



POINT TO CELL WITH CHAR COUNT 
GET COUNT OF # CHARS IN COMMAND 
CHECK LENGTH OF COMMAND STRING 
BR IF COMMAND IS SMALL ENOUGH 



#PASLIN!SCHAIN, ©#JSWLOC J CLEAR FLAGS BEFORE ABORT 



6$: 

2*: 



FABORT #TOOLNG 

MOV #CFBUF, R4 

MOVE (R3)+, <R4> + 

BMP 1 <£ 



LINE TOO LONG ERROR MESSAGE 
POINT TO START OF COMMAND FILE BUFFER 
MOVE COMMAND TO BUFFER 
; BR IF NORMAL CHARACTER 



000015 
000012 



1 77777 



Put cr-lf in place of astiz nulls 
MOVB #CR, -KR4) 
MOVB #LF, <R4H- 



1*: 



SOB 
CMP 
BHI 



R2, 2* 
R4, R5 
10* 



Null fill remainder of buffer 



14*: 



CMP 


R4, R5 


BHIS 


13* 


CLRB 


<R4) + 


BR 


.1.4* 



MOVE ALL CHARACTERS 

DID WE OVERFLOW BUFFER SPACE? 

BR IF YES — COMMAND TOO LONG 



HAVE WE REACHED THE END OF THE BUFFER? 

BR IF YES 

NULL FILL REST OF BUFFER 



OOOOOOC 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOC 
OOOOOOC 
OOOOOOC 



OOOOOOG 
OOOOOOG 



If special chain exit is being used/ or if command is coming 
from CCL or IND> then don't list the commands. 

3*: BIT #*CCLRN!*INDRN,LSW5(R1) ; IS CCL OR IND RUNNING? 

BNE 8* ', BR IF YES 

BIT #SCHAIN, S#JSWLOCi IS THIS A SPECIAL CHAIN EXIT? 

BEQ 9* i BR IF NOT 

8$: BIS #*QUIET,LSW4<R1>; SET FLAG TO SUPPRESS LISTING COMMAND LINES 

9*: BIT #*CCLRN, L5W5<R1>; IS THIS AN EXPANDED CCL COMMAND? 

BEQ 4* i BR IF NOT 

BIS #*CFCCL>LSW4<Ri ); REMEMBER THAT THIS IS A CCL COMMAND 
i Clear flags which say CCL or IND is running. 

OOOOOOG 4*: BIC #*CCLRN ! 4INPRN. LSW5 (Rl ) ; CCL AND IND ARE NO LONGER RUNNING 

OOOOOOG BIC #PASLIN!SCHAIN, ©#JSWLOC ; CLEAR COMMAND-PASSED FLAGS 

OOOOOOG BIC #*UCLRN!*UKMRN, LSW7(R1>> SAY TSXUCL IS NO LONGER RUNNING 

See if we are exiting from a locked program 

OOOOOOG CKLK: 



BIT #*PRGLK, LSW5<R1) 
BEQ CKSF2 
JMP CMDOFF 



IS A LOCKED PROGRAM EXITING? 

BR IF NOT 

EXIT FROM LOCKED PROGRAM==>LOGOFF 



See if we need to start execution of a secondary start-up command file 
<The secondary start-up command file runs without privilege after the 
initial start-up command file finishes). 



10 5767 OOOOOOG 

001417 

005767 OOOOOOG 

00 1 1 4 

042761 OOOOOOG OOOOOOG 



CKSF2: 



TSTB 


SUCF2 


BEQ 


NEWCMD 


TST 


CFPNT 


BNE 


NEWCMD 



BIC 



;Is there a pending secondary command file? 
i Br if not 

iAre we currently in another command file? 
; Br if yes — Wait for it to finish 
#*SUCF, LSW9<R1 ) ;Say we are finished with 1st startup file 



4 

4 
I 
* 
C 
t 

i 
t 
i 
t 
i 
f 
€ 
4 
I 
i 
( 
i 
i 
i 
i 



< 
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Entry to KMQN 
< 

115 006750 042761 OOOOOOG OOOOOOG BIG #*NOIN, LSW3<R1 ) ; Allow input to be accepted for line 

116 006756 013702 0000000 MOV #SUCF2, R2 ; Point to name of secondary command file 

117 006762 00476? 004732 CALL SETSUF > Set up command file 

118 006766 105067 OOOOOOG CLRB SUCF2 > Say secondary file no longer pending 



{ 



I bKPIN I — tax "-r .1 u s f-' e y 
Set keyboard command 



i 

3 
4 

5 006772 

6 007000 

7 007004 
S 007010 
9 007012 

10 
11 
I, P 

13 007020 

14 007024 

15 007030 

16 007034 

17 007036 
IS 007042 
19 007046 
20 

21 



116701 

012702 
132712 
00 1 406 
142712 
152712 
000167 



23 



25 
26 



007052 
007060 
007062 

27 007066 

28 007070 
29 

30 
31 
32 007074 



032761 
001405 
00 5767 
00 1 002 
000167 
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. SBTTL Get keyboard command 
Print- CR-LF to get to left margin if we are not already there. 



052737 0000000 

1 1 670 1 0000000 

10 5761 OOOOOOG 
00 1 403 



OOOOOOG NEWCMD: BIS 

MOVB 
TSTB 
BHQ 



#LCBIT, @#JSWLOC 
CORUSR, Rl 
LCDL<R1) 
RDCMD 



ENABLE LOWER-CASE INPUT 

GET JOB INDEX NUMBER 

ARE WE ALREADY AT LEFT MARGIN? 

BR IF YES — NO CR-LF NEEDED 

PRINT CR-LF 



. PRINT #CRLF 
See if IND is in control and we need to call it to get the next command 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOC 
OOOOOOG 
002476 



RDCMD: 



MOVB 

MOV 

Bl'TB 

BEQ 

BICB 

BISB 

JMP 



CORUSR, Rl 
#INDSTA, R2 
# IN* ACT, €R2 
2* 



; GET JOB INDEX NUMBER 

i GET POINTER TO IND STATUS BYTE 

; IS IND ACTIVE? 

i BR IF NOT 



#IN*ACT!IN*OMD, 6R2 ; CLEAR STATUS FLAGS FOR IND 

#IN*CNT, €R2 i SAY WE ARE CONTINUING EXECUTION OF IND 

INDRUN ; GO RUN IND PROGRAM 



OOOOOOG OOOOOOG 2*: 



OOOOOOG 



002162 



If user-wri tten command interface program is active, call it to 
get the next command. 

BIT #*UaM0N, LSW7<R1 ); Are we to use user-written command program? 

BEQ 3* i Br if not 

TST CFPNT i Are we getting commands from a command file? 

BNE 3* ; Br if yes — Don't call user program till end 

JMP CALUKM ; Enter user command processor program 

Read next command line 

3*: . GTLIN #INBUF, #KMPRMT ; PROMPT FOR AND ACCEPT COMMAND LINE 



I 
t 

t 

c 
I 
t 

i 
« 

i 
< 

i 

€ 
€ 

< 

i 

i 
1 
i 
t 

i 



T*rM..» fcrfh 1 



Get keyboard co a)tna 



UJ> A /•!■ 1-. rt 
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•td 



3 








4 








5 








6 


007114 


012702 


001156' 


7 


007120 


005067 


171320 


a 


007124 


105067 


171316 


9 


007130 


105067 


175204 


10 


007134 


.1.05067 


175201 


11 


WW f J. T w 


105067 


175176 


12 


007144 


105067 


175173 


13 


007150 


012704 


001402' 


14 


007154 


1 1 2400 




15 


007156 


00 t 546 




16 


007160 


120027 


000040 


17 


007164 


00 .1 773 




IS 


007166 


120027 


000011 


19 


007172 


00 1 770 




20 


007174 


Ic'OUe.'/ 


000014 


21 


007200 


001765 




22 
23 
24 


007202 


000402 










25 








26 


007204 


1 1 2400 




27 


007206 


00 1 530 




28 








29 








30 








31 


007210 


120067 


171232 


32 


007214 


001003 




33 


007216 


105067 


171224 


34 


007222 


000511 




35 


007224 


105767 


171216 


36 


007230 


001106 




37 


007232 


120027 


000047 


38 


007236 


001403 




39 


007240 


120027 


000042 


40 


007244 


001003 




41 


007246 


1 1 0067 


171174 


42 


007252 


000475 




43 








44 








45 








46 


007254 


120027 


000041 


47 


007260 


00 1 503 




4S 








49 








50 








51 


007262 


J. 05767 


175054 


52 


007266 


00 1 067 




53 


007270 


120027 


000072 


54 


007274 


00 1010 




55 


007276 


j. .1 0022 




56 


007300 


112400 




57 


007302 


001472 





Input line is now in INBU!- in asciz form. 

Move line to CMDBUF while looking for start of comments or 

indirect file reference. 



MOVE FINISHED COMMAND HERE 

SAY NO INDIRECT FILE YET 

Say we are not in quoted string 

SAY HAVE NOT SEEN "*@" 

SAY HAVE NOT SEEN "#@" 

SAY HAVE NOT SEEN ":=" 

SAY WE MAY CALL UCL FOR THIS COMMAND 

SCAN FROM HERE 

GET NEXT CHAR FROM INPUT LINE 

BR IF END OF LINE HIT 

SKIP OVER LEADING SPACES 



; SKIP LEADING TABS 
;SKIP LEADING FORM FEEDS 
{ BEGIN SCANNING REAL COMMAND 
Get next character from input line 



PRSCMD: 


MOV 


#CMDBUF, R2 




CLR 


INDRFL 




CLRB 


QUOTFL 




CLRB 


DOLRAT 




CLRB 


DOTAT 




CLRB 


COLEQL 




CLRB 


NOUCL 


SCNCMD: 


MOV 


#INBUF, R4 


8*: 


MOVB 


<R4>+, RO 




BFQ 


4* 




CMPB 


RO, #' 




BEQ 


8* 




CMPB 


RO.. #TAB 




BEQ 


8* 




CMPB 


RO, #FF 




BEQ 


8* 




BR 


9* 



6*: 



MOVB 
BEQ 



<R4>+, RO 
11* 



;GET NEXT CHAR FROM INPUT LINE 
; BR IF END OF LINE HIT 



See if we aTe in a quoted string 



9*: 



17*: 



19*: 



CMPB 


RO, QUOTFL 


BNE 


17* 


CLRB 


QUOTFL 


BR 


5* 


TSTB 


QUOTFL 


BNE 


5* 


CMPB 


RO, #47 


BEQ 


19* 


CMPB 


RO, #42 


BNE 


18* 


MOVB 


RO, QUOTFL 


BR 


5* 



Check for start of comments 



18*: 



: CMPB 


RO, # ' ! 


BEQ 


11* 


Check for : 


s 


TSTB 


COLEQL 


BNE 


5* 


CMPB 


RO, #': 


BNE 


12* 


MOVB 


RO, <R2) + 


MOVB 


(R4)+, RO 


BEQ 


11* 



Is this the terminating quote mark? 

Br if not 

Say not within quoted field now 

Go store terminating quote character 

Are we inside a quoted string now? 

Br if yes — Go store char without checking 

Apostrophe character? 

Br if yes 

Quote character? 

Br if not 

Remember we are inside a quoted string 

Go store character without further checking 



; START OF COMMENT FIELD? 
* BR IF YES 



Have we already seen : =? 

Br if yes — Ignore (g's after 

Start of := sequence? 

Br if not 

Store into result string 

Get character following colon 

Br if end of line hit 



Get 



Ni - 


--- i' SX--P 


1 u -i Key t:> 


oar a lion 


haCku 


key 


ioard c a 


<ni!K;Md 






58 


007304 


120027 


000075 




5? 


007310 


001002 






60 


007312 


10 5267 


175024 




6.1 










62 










63 










64 


007316 


120027 


000044 




65 


007322 


00 1 1 4 






66 


007324 


005767 


1711.1.4 




67 


007330 


001046 






68 


007332 


12 1427 


000100 




69 


007336 


001043 






70 


007340 


1 0267 


171100 




71 


007344 


105267 


174770 




72 


007350 


005204 






73 


007352 


000714 






74 










75 










76 










77 


007354 


X cOOa / 


000043 




78 


007360 


001014 






79 


007362 


005767 


171056 




80 


007366 


001027 






81 


007370 


121427 


000100 




82 


007374 


001024 






83 


007376 


010267 


171042 




84 


007402 


105267 


1 74733 




85 


007406 


005204 






86 


007410 


000675 






87 










88 










89 










90 


007412 


120027 


000100 




91 


0074 1 6 


00 1 1 3 






92 


007420 


121427 


000100 




93 


007424 


00 1 002 






94 


007426 


005204 






95 


007430 


000406 






96 


007432 


005^67 


171006 




97 


007436 


00 1 003 






98 


007440 


1 026 7 


171000 




99 


007444 


000657 






100 










101 










102 










103 


007446 


020227 


001362' 




104 


007452 


103404 






105 


007454 








106 


007464 


1 1 0022 






107 


007466 


000646 






.1 08 










109 










110 










111 


0074 70 


010267 


.171036 




112 


007474 


020227 


001156' 




113 


007500 


001007' 






114 


007502 


000167 


177312 





VOS. 04 



n cl a y 


21 


--Dec -87 


CMPB 




RO, #' = 


ONE 




12* 


I NOB 




COLEQL 
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Chi ■<:;!< for *€ 



12*: 



CMPB 


RO, #'* 


BNE 


.10* 


1ST 


INDRFL 


BNE 


5* 


CMPB 


<R4>, #'« 


BNE 


5* 


MOV 


R2, INDRFL 


INCB 


DOLRAT 


INC 


R4 


BR 


6* 



Check for #@ 



10*: 



CMPB 


RO, #'# 


BNE 


3* 


TST 


INDRFL 


BNE 


5* 


CMPB 


<R4>, #'€ 


BNE 


5* 


MOV 


R2, INDRFL 


INCB 


DOTAT 


INC 


R4 


BR 


6* 



Check for @ and S^l 



3*: 



20*: 



CMPB 


RO, #'@ 


BNE 


5* 


CMPB 


(R4), #'fi 


BNE 


20* 


INC 


R4 


BR 


5* 


TST 


INDRFL 


BNE 


5* 


MOV 


R2, INDRFL 


BR 


6* 



Move character to buffer' 



5*: 


CMP 


R2, #CBFEND 




BLO 


1* 




FAB OR T 


#ILLCMD 


1*: 


MOVE 


RO, (R2) + 




BR 


6* 


> Rea c 


h e ti end 


of line • — 


11*: 


MOV 


R2, CMDEND 


4*: 


CMP 


R2, #CMDBUF 




BNE 


16* 




JMP 


RDCMD 



Is this : -~ ? 

Br if not 

Remember := seen tuithin command string 



COULD THIS BE START OF "*@»? 

BR IF NOT 

HAVE WE ALREADY SEEN £? 

BR IF YES 

IS THIS "*@"? 

BR IF NOT 

REMEMBER INDIRECT FILE NAME LOCATION 

REMEMBER PREFIX WAS "*@" 

SKIP PAST "*" 

START GETTING FILE NAME- 



COULD THIS BE START OF "#€"? 

BR IF NOT 

HAVE WE ALREADY SEEN €? 

BR IF YES 

IS THIS "#@"? 

BR IF NOT 

REMEMBER INDIRECT FILE NAME LOCATION 

REMEMBER PREFIX WAS "#@" 

POINT PAST ". " 

START GETTING FILE NAME 



START OF INDIRECT FILE REFERENCE? 
BR IF NOT 
Is this "@@"? 
Br if not 

Skip past second at-sign 

Translate "@@" to "®" and pass with command 
ALREADY SEEN @ BEFORE? 
IF YES THEN IGNORE THIS ONE FOR NOW 
SAVE POINTER TO START OF FILE NAME 
* DON'T BOTHER STORING £ IN CMDBUF 



MAKE. SURE WE DON'T OVERFLOW BUFFER 
BR IF OK 

COMMAND TOO LONG 
MOVE CHAR TO CMDBUF 
GO GET REST OF LINE 



strip off any trailing spaces and tabs 



SAVE POINTER PAST END OF COMMAND STRING 

HAVE WE GONE PAST START OF BUFFER? 

BR IF NOT 

YES — THIS IS A NULL COMMAND 



/ 
* 



T5KMN1 
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Get keyboard command 



115 
116 
117 
US 
119 
120 
121 
122 
123 
124 
125 
126 
127 
12S 



007506 
007512 
007514 
007520 
007522 



007524 
007532 

007534 
007536 

007556 



lfiitcic;'./ 

00 1770 
12122/ 
001765 
005202 



126227 
001013 

00 5302 



000040 
000011 



16*: 



CMPB 

BEG 

CMPB 

BEG 

INC 



■-(R2),#' 

4$ 

<R2>, #TAB 

4* 

R2 



IS NEXT CHARACTER A SPACE? 

LOOP BACKWARD OVER SPACES 

IS THIS A TAB? 

LOOP IF YES 

POINT BEYOND LAST NON-BLANK CHARACTER 



See if command line is continued 



177777 000055 



i7 177366 



CMPB -1<R2>»#'- 
BNE GQTCML. 
Line is continued -- get more 
DEC R2 

. GTLIN #INBUF, #KMPRMT 
JMP SCNCMD 



i IS LINE CONTINUED? 
; BR IF NOT 

; POINT BACK TO - 

iREAD COMMAND CONTINUATION LINE 

; CONTINUE SCANNING LINE 



i 
< 



i b'KPISM I ■— - i ST -\ ~i J .!. U '-- A ■■ 

Get keyboard c o m m a n d 
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i 



3 
4 



6 007562 

7 007564 
S 007572 
9 007574 

10 007600 

1 i 007602 

12 007606 

13 007610 

14 007620 
15 

16 
17 



18 

19 

20 

21 
nn 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



007624 
007630 



007632 
007640 
007642 
007650 
007652 
007656 
007660 
007664 
007672 



126727 
00 1 4 1 1 
032761 
001412 
005767 
00 1 407 
000167 
1 1 2767 
10 5267 
000167 



105012 

026727 170654 

001443 

105767 174542 

00 1 4 1 .!. 

005767 000000G 

00 1 004 

000167 001306 



016703 170614 
00102 J 'I 



171320 

0000Q0G 

0000000 

001246 
000040 
174445 
000562 



000137 
0OO0O0G 



171264 



1*: 



End of command found. 

See if this command contains := which indicates this is a user 

request to define a new command keyword. 

store null at end of command 

Was "@" first character of command? 

Br if yes — Don't call UCL for this 

Was : = seen within command line? 

Br if not 

Are we supporting usei — defined commands? 

Br if ues 

No user-defined commands allowed 

Go call UCL to process it 





GOTCML: 


CLRB 


<R2> 


1156' 




CMP 


INDRFL, #CMDBUf 






BEG 


INDCMD 






TSTB 


COLEQL 






BEG 


13* 






TST 


UCLBLK 






BWE 


t* 



FAB OR T #EM*NUC 
•JMP CALUCL 



See if command line contains an indirect command file reference 



13*: 



MOV 
BNE 



INDRFL. R3 

INDCMD 



;Did we have indirect file reference? 

i Br if yes 



If we are to call TSXUCL before normal processing* determine if we 
should do it for this command. 

Was "_." specified as first char of command? 

Br if yes — Don't call TSXUCL for _command 

Should we call TSXUCL before normal commands? 

Br if not 

Are we allowing user-defined commands? 

Br if not 

Call TSXUCL to try to process this command 
15*: MOVE #' , CMDBUF > Replace leading underscore with space 

Remember not to call TSXUCL for this command 
16*: JMP IDNCMD > Go try to identify the command 



CMPB 


CMDBUF, #'.,. 


BEG 


15* 


B I T 


#*UCLCF, LSW7<R1 ) 


BEG 


16* 


TST 


UCLBLK 


BEG 


16* 


JMP 


CALUCL 


MOVB 


# ' , CMDBUF 


INCB 


NOUCL 


JMP 


IDNCMD 
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G e t k & y b o arc! c o m m a n d 



4 



007702 
007706 



1 

3 
4 

»~, 

6 
7 
S 
9 
3.0 

11 007712 

12 007/14 

13 007720 

14 007724 

15 007726 
16 



Command line contains indirect file reference. 
Accrue indirect file name and try to open the file. 



18 

19 
20 
21 



28 
29 



007732 
007740 
007 742 
007746 

23 007750 

24 007754 

25 007756 

26 007766 

27 007774 
007/76 
010002 

30 010004 

31 010012 

32 010014 

33 010016 

34 010020 
35 

36 
37 

38 010024 

39 010030 
010034 
010036 
010042 

43 010050 

44 010070 

45 010076 

46 010100 

47 010104 

48 010112 

49 010114 

50 010130 

51 010134 

52 010140 
53 

54 
55 

56 010150 

57 010154 



40 
41 
42 



.1 1 670 1 

016703 



010304 
012705 
004767 
103002 
000167 



026727 
001031 
105767 
00 1 407 
005767 
00 1 1 3 

032761 
00 1 4 1 3 
105767 
001010 
132767 
001004 
010403 
005005 
000167 



016700 
004767 
103441 
004767 

112767 

112767 
103024 
116701 
032761 
001410 

000167 

004767 



OOOOOOG 
170532 



INDCMD: MOVB 
MOV 



CORUSR, Rl 
INDRFL, R3 



GET JOB INDEX # 

GET POINTER TO COMMAND FILE NAME 



Accrue the command File spec: 



000250 ' 
0000000 

177066 



170506 001156' 4*: 

174373 

0000000 

OOOOOOG 0000000 2$: 

174336 

0000000 OOOOOOG 3$: 

001372 



MOV 


R3, R4 


MOV 


#DKCOM.- R5 


CALL 


ACRFN 


BCC 


4* 


JMP 


RDCMD 



Save pointer to start of command file name 

SET DEFAULT DEV AND EXT 

ACCRUE THE FILE NAME 

BR IF GOT NAME OK 

ERROR WHILE GETTING FILE NAME 

See if we should let IND process the indirect command file 

Was "@" first character of command? 

Br if not 

WAS PREFIX "#@"? 

BR IF NOT 

IS IND AVAILABLE ON SYSTEM? 

BR IF YES 

IND IS NOT AVAILABLE 

IS IND TO BE CALLED BY DEFAULT? 

BR IF NOT 

WAS COMMAND PREFIX "*@"? 

BR IF YES — DON'T USE IND 

IS IND ACTIVE NOW? 

BR IF YES 

Get back pointer to start of file spec 

NO DEFAULT DEVICE 

GO ENTER IND 

Process this indirect command file directly rather than calling IND 



CMP 


INDRFL, #CMDBUF 


BNE 


1* 


TSTB 


DOTAT 


BEQ 


2* 


TST 


INOSAV 


BNE 


3* 


FAB OR T 


#NOIND 


B .1 T 


#*INDDF, LSW5<R1) 


BEQ 


1* 


TSTB 


DOLRAT 


BNE 


1* 


BITB 


#IN*ACT, INDSTA 


BNE 


1* 


MOV 


R4, R3 


CLR 


R5 


JMP 


INDINI 



1 70420 
OOOOOOG 

OOOOOOG 
000001 

000000 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



1$: 



OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV 

CALL 

BCS 

CALL 

MOVB 



FILNAM, RO 
CHKTTD 
NGICMD 
PUSHCF 
#1, SERFLG 



Get the device name 

Is the device TT? 

Br if yes — Error 

PUSH CURRENT ©FILE ON STACK 

DO . SERR 



LOOKUP #XAREA, #CFCHAN, #FILNAM 



5*: 



MOVB #0, SERFLG 

BCC CFOPEN 

MOVB CORUSR* R J 

BIT #*SUCF, LSW9<R1> 

BEQ 5* 

FERR #NOCF 

JMP CMDOFF 

CALL POPCF 



DO . HERR, DON'T CLEAR CARRY FLAG 

BR IF OPEN OK 

GET JOB INDEX NUMBER 

ARE WE WITHIN A START-UP COMMAND FILE? 

BR IF NOT 

PRINT ERROR MESSAGE 

LOG THE JOB OFF 

POP PUSHED COMMAND FILE STATUS 

COULDN'T OPEN ©FILE 



NOICMD: FABORT #NOCF 

We have successfully opened the indirect command file. 



.1 16701 
052 761 



OOOOOOG 
OOOOOOG 



OOOOOOG 



CFOPEN: MOVB 
BIS 



CORUSR, R. I 

#*CFOPN, LSW4<R1>* SAY CFCHAN IS OPEN 
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58 








59 








6 1 


0101 62 


C C 4 '"' 6 / 


001726 


62 








63 








64 








65 


010166 






66 


010224 


103003 




67 








68 








69 








70 


1 0226 


012767 


0000000 


71 








72 








73 








74 








75 








76 


010234 


105713 




77 


010236 


00 1 437 




78 


010240 


122327 


000040 


79 


010244 


00 1 773 




80 








81 


010246 


012701 


000040 


82 


010252 


124327 


000134 


83 


010256 


001001 




84 


010260 


112301 




85 








86 


010262 


012704 


000000G 


87 


010266 


012705 


0000000 


88 


010272 


020427 


000000G 


89 


010276 


103062 




90 


010300 


010524 




91 


010302 


121301 




92 


010304 


001407 




93 


010306 


105713 




94 


010310 


001405 




95 


010312 


020527 


0000000 


96 


010316 


103056 




97 


010320 


112325 




98 


010322 


00076/ 




99 








100 


010324 


105025 




101 


010326 


10 5723 




102 


010330 


001360 




103 


010332 


010567 


0000000 


104 








105 








106 








107 








108 








109 








110 








111 








112 


010336 


016702 


170102 


113 


010342 


001436 




114 


010344 


Y.-i~\.'C£-.. .' 


001156' 



See if command file was installed with any privileges. 

CALL INSCF ) See if command file was installed 

READ IN 1ST BLOCK FROM INDIRECT FILE 

. READW #XAREA, #CFOHAN, #CFBUF, #256. , #0 

BCC CFPRM ; BR IF READ OK 

ERROR OCCURED ON COMMAND FILE READ. 

THIS MUST MEAN THAT WE HAVE AN EMPTY COMMAND FILE. 
SET BUFFER POINTER TO CAUSE US TO IGNORE THIS BUFFER FULL. 

MOV #CFEND, CFPNT i SAY BUFFER IS EMPTY 

SEE IF INDIRECT FILE HAS PARAMETERS. 

R3 NOW POINTS PAST END OF COMMAND FILE NAME. 
SCAN ACROSS COMMAND LOOKING FOR 1ST PARAMETER 



CFPRM: TSTB 
BEO 
CMPB 
BEG 

> SEE IF WE 
MOV 
CMPB 
BNE 
MOVB 

i THERE ARE 

8*: MOV 
MOV 

7$: CMP 
BHIS 
MOV 

6*: CMPB 
BEG 
TSTB 
BEG 
CMP 
BHIS 
MOVB 
BR 

• HIT END OF 

4$: CLRB 
TSTB 
BNE 
MOV 



<R3) 

R BREST 

<R3>+, #' 

CFPRM 
SHOULD USE SPACE OR 

# ' , R 1 

-~<R3), #'\ 

8* 

<R3)+, Rl 
SOME PARAMETERS - 

#PRMPNT, R4 

#PRMBUF, R5 

R4, #LSTPRM 

TOMPRM 

R5, <R4) + 

(R3>, Rl 

4* 

<R3) 

4* 

RS, #PRMEND 

PTL 

<R3>+, <R5) + 

6* 
PARAMETER — STORE 

(R5) + 

(R3) + 

7* 

RS, PBFEND 



HIT END OF COMMAND? 

BR IF END HIT 

SKIP OVER LEADING SPACES 

\ AS PARAMETER DELIMITER 
ASSUME SPACE IS DELIMITER 
DOES HE WANT TO USE \? 
BR IF NOT — USE SPACE 
USE \ AS PARAM SEPARATOR 
ACCRUE THEM 
POINT TO PARAM POINTER CELLS 
POINT TO PARAMETER STRING BUFFER 
TOO MANY PARAMETERS? 
BR IF TOO MANY 

SET PARAMETER STRING POINTER 
REACHED PARAM DELIMITER YET? 
BR IF YES 

HIT END OF COMMAND? 
BR IF YES 

HIT END OF PARAM STRING BUFFER? 
BR IF PARAM STRING TOO LONG 
MOVE PARAMETER TO BUFFER 

NULL IN STRING TO MARK END. 

FLAG END OF THIS PARAMETER STRING 

MORE TO ACCRUE? 

BR IF YES 

SAVE POINTER TO END OF PARAM STRING 



€ 
€ 
< 
t 



THE COMMAND FILE HAS BEEN OPENED AND ITS PARAMETERS HAVE 

BEEN ACCRUED AND STORED AWAY. 

IF THIS COMMAND FILE IS PART OF ANOTHER COMMAND (PART OF SAME LINE) 

THEN GO AND READ THE REST OF THE COMMAND. 

ELSE GO READ NEXT COMMAND LINE WHICH WILL COME FROM THE INDIRECT 

COMMAND FILE WE JUST OPENED. 



RDREST: MOV INDRFL, R2 
BEG CFJMP 
CMP R2, #CMDBUF 



GET POINTER TO START OF ©SPECIFICATION 
BR IF IMPLICIT ©FILE EXECUTION 
IS ©FILE 1ST THING IN COMMAND? 



-1" f—- 1 / lulk! 



torsruMi i &a~ rMus r.tiiifuaiu 

Get keyboard command 
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nun ciMv-Ku vwo. u-h rtonaay & 'i~uec-b/ 1 1 : W Page I /■ 



115 


010350 


001433 




1 1 6 








117 








i 16 








119 








120 


010352 


116701 


0000000 


121 


010356 


016146 


0000000 


122 


010362 


012705 


0000000 


123 


010366 


050561 


0000000 


124 


010372 






125 


010410 


030526 




126 


010412 


00 1 002 




127 


010414 


040561 


0000000 


128 


010420 


005067 


170020 


129 


010424 


105067 


173710 


130 


010430 


105067 


1 73705 


131 


010434 


000167 


176510 


1 32 


010440 


000167 


176354 


133 








134 


010444 






135 








136 


010454 







BEG. 



CFJMP 



THIS INDIRECT FILE REFERENCE 
SUI-'l-'KfcSS THE LISTING OF THE 1 



M0VB 


C0RUSR,R1 


MOV 


LSW4(R1 ), -<SP) ; 


MOV 


#*QUIET, R5 ; 


BIS 


R5, LSW4<R1> ; 


. OIL IN 


#INBUF i 


BIT 


R5, (SP)+ i 


BNE 


10* ; 


BTC 


R5, LSW4(R.t) ; 


10*: CLR 


INORFL i 


CLRB 


DOLRAT i 


CLRB 


DOTAT i 


JMP 


SCNCMD ; 


CFJMP : JMP 


RDCMD i 


i ERROR — TOO 


MANY PARAMETERS 


fOMPRM: FAB OR T 


#NUMPRM 



; BR IF YES 

IS PART OF ANOTHER COMMAND SO 
ST LINE OF ©FILE AS WE READ IT. 

; GET USER INDEX # 

i SAVE COMMAND FILE STATUS FLAGS 

;GET QUIET FLAG INTO REGISTER 

; TURN QUIET ON 

i READ LINE FROM ©FILE 

;NEED TO SET OR RESET QUIET MODE? 

; BR IF WANT TO LEAVE IT SET 

; RESET QUIET MODE 

; SAY ©FILE REFERENCE HAS BEEN RESOLVED 

i SAY HAVEN'T SEEN "*@" 

; SAY HAVEN'T SEEN "#@" 

; GO GET REST OF COMMAND 

; GO READ NEXT COMMAND 



; ERROR ■—■• PARAMETER STRING TOO LONG 
PTL: FABORT #STRLEN 



« 



"iSKMNi — TbX-HIui 
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1 



4 

5 

6 

7 

S 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



SBTTL Identify command 



010464 
010470 
010474 
010500 

010502 
010504 
010506 



010516 
010522 



012704 
012703 
004767 
103006 

005704 
00 1 407 



116701 
000134 



AT THIS POINT A COMMAND LINE HAS BEEN ACCEPTED, CONTINUATION 
LINES READ, COMMENTS STRIPPED AND INDIRECT FILE REFERENCES 
RESOLVED. THE RESULTING COMMAND IS STORED IN CMDBUF IN 
ASCIZ FORM WITH R2 POINTING TO THE END OF THE COMMAND. 



TRY TO IDENTIFY IT AS A SYSTEM COMMAND. 



000000 ' 
0011 56-' 
OOOOOOG 



IDNCMD: MOV 


#CMDHD, R4 


MOV 


#CMDBUF, R3 


CALL 


SEARCH 


BCC 


FNDCMD 


■> ERROR DURING 


SEARCH. SE 


TST 


R4 


BEQ 


NOCMD 


FAB OR T 


#ABCMD 



IF 



i POINT TO TABLE OF SYSTEM COMMANDS 
i POINT TO OUR COMMAND 
; LOOK UP THE COMMAND KEYWORD 
i BR IF IDENTIFIED THE COMMAND 
UNRECOGNIZED OR AMBIGUOUS. 
; AMBIGUOUS OR UNRECOGNIZED? 
;BR IF UNRECOGNIZED 
; AMBIGUOUS COMMAND 



WE HAVE A VALID SYSTEM COMMAND. 

BRANCH OFF TO COMMAND PROCESSING ROUTINE. 

AT THIS POINT THE FOLLOWING REGISTERS ARE SET UP: 



R2 



= USER INDEX NUMBER 

= ADDRESS OF END OF COMMAND STRING 



R3 = ADDRESS OF START OF COMMAND ARGUMENT FIELD. 



OOOOOOG 



FNDCMD: 



MOVB 
JMP 



CORUSR, RJ 
@<R4)+ 



; GET USER INDEX # 

; ENTER COMMAND PROCESSING ROUTINE 
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I 
•;> 

3 
4 
5 
6 
7 

a 

9 
10 
11 
IP 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 

T T" 

45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



10524 
10530 
10536 
10540 
10544 
10546 
10552 
10554 



10560 
10564 
10570 
10574 
10576 
10602 
1 0606 
10610 
10614 
10622 
10642 
10650 
10652 
10654 



10656 
10664 
10672 
10712 
10720 



1 0722 
10726 
10734 
10736 
10744 
10746 
10754 
10760 



116701 
032761 
001410 
105767 
001005 
005767 
00 1 402 
000167 



012703 
012705 
004767 
103513 
016700 
004767 
103506 
004767 
1 1 2767 

1 1 2767 
103402 
005005 
000424 



01676/ 
1 1 2767 

1 1 2767 
103430 



012705 
132767 
00 1015 

032761 
001411 

004767 
1 2703 



We 

BO 

1. 

2. 
3. 
4. 
5. 



could not identify the command as a standard system command 

we try to identify it as an implicit command in the following way: 



bee 
See 
See 
See 
See 



if 
if 
if 
if 
if 



it is 
there 
there 
there 
there 



a user-defined command (if SET UCL MIDDLE). 

"DK: " with command name. 
"SY: " with command name. 
" with command name. 



1 s 
is 
is 
i s 



c: ommand 
command 



file 
file 



SAV file on 



on 
on 
SY: 



OOOOOOG 
OOOOOOG OOOOOOG 



173577 

OOOOOOG 

000352 



001156' 
000250 ' 
OOOOOOG 

167646 
OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 



SY: UCL program to process the command (if UCL LAST). 
See if we should call TSXUCL to process this command. 

INDEX NUMBER 



NOCMD: MOVB CQRUSR-R1 

BIT #*UCLCM, LSW7(R1> 

BEG 7* 

TSTB NOUCL 

BNE 7* 

TST UCLBLK 

BEG 7% 

JMP CALUCL 



GET CURRENT JOB 

SET UCL MIDDLE? 

BR IF NOT 

DID UCL ALREADY 

BR IF YES 

ARE WE ALLOWING 

BR IF NOT 

SEND COMMAND TO 



REJECT THIS COMMAND? 
USER -DEFINED COMMANDS? 
TSXUCL 



7$: 



MOV 


ttCMDBUF, R3 


MOV 


#DKCOM, R5 


CALL 


ACRFN 


BCS 


6* 


MOV 


FILNAM, RO 


CALL 


CHKTTD 


BCS 


6* 


CALL 


PUSHCF 


MOVB 


#1, SERFLG 


. LOOKUP 


#XAREA, #CF( 


MOVB 


#0, SERFLG 


BCS 


3* 


CLR 


R5 


BR 


4* 



167406 
000001 



167564 
OOOOOOG 



3*: 



000000 OOOOOOG 



004345' 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
001156' 



4$: 



See if there is a command file on DK device with command name. 



; POINT TO KEYWORD NAME 
; GET DEV AND EXT DEFAULTS 
; ACCRUE THE FILE NAME 
; BR IF ERROR IN GETTING FILE NAME 
; Get the device name 
; Is it TT? 
i Error if yes 

; PUSH CURRENT ©FILE STATUS 
; DON'T ABORT ON ERRORS 
HAN, #FILNAM 

;D0 . HERR — DON'T CLEAR CARRY FLAG 

; BR IF NOT FOUND 

* SAY NO DEFAULT DEVICE NAME 

; GO SEE IF WE SHOULD RUN IND 



See if there is a command Pile on SY device with command name. 

MOV R50SY, FILNAM > CHANGE DEVICE NAME TO BE "SY" 

MOVB # 1 , SERFLG ; DO . SERR 

. LOOKUP #XAREA, #CFCHAN, #FILNAM 

MOVB #0, SERFLG i DO .HERR, DON'T CLEAR CARRY FLAG 

BCS 1* i BR IF COMMAND IS NOT A COMMAND FILE 

We located a command file? on DK or SY. 
See if we should call IND to execute it. 

GET DEFAULT DEVICE FOR IND FILE 

IS IND ACTIVE NOW? 

BR IF ALREADY ACTIVE 

IS IND WANTED? 

BR IF NOT 

PURGE CHANNEL WE OPENED TO FILE 

POP UP TO OLD FILE 

POINT TO START OF COMMAND LINE 



MOV 


#SYTXT, R5 


BITB 


#IN*ACT, CFIND 


BNE 


2* 


BIT 


#*INDDF, LSW5(R1) 


BEG 


2* 


. PURGE 


#CFCHAN 


CALL 


POPCF 


MOV 


#CMDBUF.. R3 



TSKMNi --"• TSX-Plus Keyboard Mori 
Identify command 

58 010764 000167 000426 
59 



60 










.; 


61 










i 


62 


010770 


052761 


0000000 


0000000 


2*: 


63 


010776 


000167 


177146 






64 










r 


65 










t 


66 










j 


67 


011002 


004767 


0000000 




1 * : 


68 










i 


69 










* 


70 










i 


71 


011.006 


012703 


00 1 1 56 ' 






72 


011012 


012705 


000254' 






73 


011016 


004767 


0000000 






74 


011022 


103002 








75 


011024 


000167 


175770 




6$: 


76 


1 1 030 


016700 


167414 




5*: 


77 


011034 


004767 


0000000 






78 


011040 


103421 








79 


1 1 042 


1 1 2767 


000001 


0000000 




80 


011050 










81 


1 1 070 


X x i=~ / O / 


000000 


000000G 




82 


011076 


103406 








S3 


011100 


000167 


0000000 






84 










f 


85 


011104 








BAE 
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JMP INDINI J GO START UP IND 

This i 5 an implicit command File execution. 



BIS 
JMP 



#*QUIET>LSW4<R1>; ALWAYS SET QUIET IF IMPLICIT RUN 
CFOPEN i CONTINUE PROCESSING STARTUP OF ©FILE 



This is not an implicit ©file call. 

CALL POPCF i REOPEN PREVIOUS ©FILE 

See if there is a nronrani on "SY" with command name. 



POINT TO COMMAND KEYWORD 

SET DEFAULT DEV AND EXT 

ACCRUE FILE NAME 

BR IF GOT FILE NAME OK 

ERROR IN GETTING FILE NAME 

Get the device name 

Is the device TT? 

Error if yes 

DO . SERR 

ILNAM 

DO . HERR, DON'T CLEAR CARRY FLAG 

COULDN'T FIND PROGRAM 

START RUNNING THE PROGRAM 

; INVALID COMMAND 



MOV 


#CMDBUF, R3 


MOV 


#SYSAV, R5 


CALL 


ACRFN 


BCC 


5* 


JMP 


RDCMD 


MOV 


F ILNAM, RO 


CALL 


CHKTTD 


BCS 


BADCMD 


MOVB 


#1, SERFLO 


. LOOKUP 


#XAREA> #RU 


MOVB 


#0, SERFLO 


BCS 


TRYUCL 


JMP 


DORUN 



BADCMD: FAB OR T #ILLCMD 
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1114 
1122 
1 1 24 
1130 



1 132 
1 i r\A 



1140 
1160 



4 01 

5 01 

6 01 

7 01 
S 
9 

10 

11 01 

12 01 
13 
14 
15 

16 01 

17 01 
18 
19 
20 
21 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 

28 01 

29 01 

30 01 

31 011222 

32 011230 

33 011232 
34 

35 

36 

37 011236 

38 

39 

40 

41 011246 



032761 
001451 
105767 
00 1 046 



105767 
oo m 4 n 



103426 



1162 
1166 
1172 
1174 
1176 
1 202 
1 206 
1212 
1216 



012703 
012704 
1 1 2423 
00 1 376 
162703 
1 0367 
012704 
105267 
116701 
052761 
005000 
000167 



OOOOOOG 0000000 
173213 



See if there is a SY: TSXUCL program to process the command 
TRYUCL 



BIT #*UCLCL, LSW7<R1) 

BEG URERR 

TSTB NOUCL 

BNE URERR 



SHOULD WE CALL TSXUCL LAST? 

BR IF NOT 

DID UCL ALREADY REJECT THIS COMMAND? 

BR IF YES 



Call the TSXUCL program to process this command 



0000000 



CALUCL: TSTB 
nf-« 



VU*CL 

MRFBR 



; IS THERE A UCL PROGRAM? 
; HR TF WOT 



0000120 
001156" 



0000130 
0000100 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1*: 



UCL option is germed in. See i f we can find UCL program. 

.LOOKUP #XAREA, #RUNCHN, #UCLNAM ; TRY TO FIND SY: UCL. SAV 
BCS 9* i BR IF CAN'T FIND UCL PROGRAM 

We found the UCL program. 

Pass command line to it in chain area. 



POINT TO CHAIN AREA 
POINT TO COMMAND LINE BUFFER 
MOVE COMMAND TO CHAIN DATA AREA 
LOOP TILL ASCIZ NULL MOVED 
COMPUTE LENGTH OF COMMAND LINE 
AND STORE LENGTH INTO 510 
POINT TO NAME OF UCL PROGRAM 
SIMULATE . CHAIN 
GET CURRENT JOB INDEX NUMBER 
SAY THAT UCL PROGRAM IS RUNNING 
NO RUN OPTION FLAGS FOR PLOAD 
LOAD AND RUN UCL PROGRAM 



SAY UCL IS MISSING 



i UNRECOGNIZABLE COMMAND 



MOV 


#CINDAT+12>R3 


MOV 


#CMDBUF, R4 


MOVB 


<R4>+, (R3) + 


BNE 


1* 


SUB 


#CINDAT+.I3, R3 


MOV 


R3, CINDAT+10 


MOV 


#UCLNAM, R4 


INCB 


CINFLG 


MOVB 


CQRU5R, Rl 


BIS 


#*UCLRN, L3W7<Ri ) 


CLR 


RO 


JMP 


PLOAD 



Cannot find TSXUCL program 
9$: FABORT #MISUCL 

Could not identify command 
URERR: FABORT #URCMD 



i 
t 

< 
i 
i 

i 



i 



TSKMNi 
CALUKM 



TSX-P 
Start 
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1 

o 

3 

4 

5 

6 

7 

S 

9 

10 

1 1 

12 

I '"5 

14 
15 
16 
17 
18 
19 



011256 
011262 
011266 
011304 



1 1 306 
011314 

011316 



1 1 322 
011330 



116701 0000000 
012704 OOOOOOG 

103406 



052761 OOOOOOG OOOOOOG 

005000 

000167 OOOOOOG 



042761 OOOOOOG OOOOOOG 9*: 



. SBTTL CALUKM — Btart user-written command processor 

Call user-written command interface program. 

CALUKM: MOVB C0RUSR,R1 ; Get job index number 

MOV #UCISPC>R4 ;Get pointer to program name for PLOAD 
.LOOKUP #XAREA, #RUNCHN, R4; Try to lookup program 
BCS 9* > Br if cannot find program 

We found the program. Enter it. 



BIS 
CLR 
JMP 



#$yuMRKj. LSW7 < H i ) ■ Say user command processor is running 
RO > No run option flags for PLOAD 

PLOAD i Enter the program 



Cannot find the program. 

SIC #*UKMON; LSW7<R1 >; Don't try to use the program again 
FABORT #EM*NUK > Program not there 



t 

i 
i 
i 

i 
i 
t 

< 

€ 
€ 

< 
i 
€ 
€ 

« 
€ 

< 

i 
i 

4 
i 
i 



CMDIND — ."END command 
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SBTTL CMDIND 



IND command 



3 



*+ 








5 








6 
7 
S 


011340 












9 








10 


1 1 340 


005767 


0000000 


11 


O 1 1 r>AA 

V Ji A W"T"T 


nn 1 AAVI 




12 


1 1 346 






13 








14 








IS 








16 








17 


011356 


004767 


0000000 


IS 


011362 


105713 




19 


01 1364 


00 141.)- 




20 


1 1 366 


01 0304 




21 


1 1 370 


012705 


000250 ' 


22 


1 1 374 


004767 


0000000 


£Z.W 


011400 


103002 




24 


011402 


000167 


175412 


25 


011406 


010403 




26 








27 








28 








29 


011410 


005005 




30 


011412 


000167 


000000 



A command of the form "IND file" has been entered. 

van the IND program to process the indirect command file. 

CMDIND: 

See if IND is available 



TST INDSAV 
BNE 1$ 
FAB OR T # NO IND 



j Is IND available on system? 

j Br if yes 

j IND is not available 



1*: 



2*: 



Accrue the file name so that me can check later to see if the 
command file was installed with any special privileges. 

;Skip over any spaces 

j Any file specified? 

.; Br if not 

; Save pointer to start of command file 

.; Set default device and extension 

; Accrue the file name 

.; Br if got file name ok 

; Error accruing file name 

i Restore pointer to start of file spec 



CALL 


SKPSPC 


TSTB 


<R3> 


BEG 


4* 


MOV 


R3, R4 


MOV 


#DKC0M, R5 


CALL 


ACRFN 


BCC 


2* 


JMP 


RDCMD 


MOV 


R4, R3 



Start execution of IND 



4*: 



CLR 
JMP 



R5 
INDINI 



;No default device string 
; Startup IND 



IbKMNl -" 
INDINI — 



3 
4 
5 
6 
7 

a 

9 
10 
11 

12 
13 
14 
15 
16 
1 7 
10 
19 
20 
21 
22 
23 
24 
25 
26 



! to X - p 1 !...> s k e y n o a r o r-i o ? i 
Start IND program 



011416 
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. SBTTL INDINI — Start IND program 

Call IND to process an indirect command file. 

Inputs: 
R3 ~ Pointer to asciz command line. 
R5 = Pointer to default device string (asciz) 
F1LNAM = File spec for command file being started 

INDINI: 

Error if IND is already running 



i 
c 
f 



01 
01 
01 



01 
01 



1416 

1424 
1426 



1436 
1442 



132767 
00140'! 



0000000 OOOOOOG 



BITB #IN*ACT, INDSTA 

BEG 6* 

FAB OR T # IND ACT 



Is IND running now? 

Br if not 

IND is already active 



Set flag that says IND is being started 



116701 
052761 



0000000 
OOOOOOG 



6$: 



OOOOOOG 



MOVB 



C0RUSR>R1 ; Get job index number 
#*INDRN, LSW5<R1>; Say IND is running 



011450 004767 000440 



See if command file was installed with any privileges 

CALL INSCF ; See if command file was installed 

Build command line of the form "SY: IND file-name" 



2S 

29 011454 012702 001402 

30 

31 

32 

33 011460 012704 004351 

34 01 

35 01 

36 01 
37 
38 
39 

40 01 

41 01 

42 01. 

43 01 

44 01 
45 
46 
47 

48 01 

49 01 



MOV #BLKO, R2 
Insert "SY: IND " 



1460 
1464 
1466 
1470 



1472 

1474 
1476 
1500 
1502 



50 01 
51 
52 
53 

54 01 

55 01 

56 Oil: 

57 Oil! 



1504 
1506 
1 5 1 



012704 
1 1 2422 
00 1 376 
005302 



005705 
001403 

1 1 c Scif?- 

001376 
005302 



010304 



1*: 



MOV 


#SYINTX, R4 


MOVB 


<R4>+, <R2M 


BNE 


1* 


DEC 


R2 



Point to area where we will build command 



Point to "SY: IND " text string 
Copy text string 
Loop till null hit 
Point back to null 



See if we need to insert default device name 



3*: 



TST 


R5 


BEO 


2* 


MOVB 


<R5>+, CR2> + 


BNE 


3* 


DEC 


R2 



Copy command text string 



1512 
1516 



001376 



012702 
010304 



2$: 


MOV 


R3, R4 


4$: 


MOVB 


(R4)+, (R2) 




BNE 


4* 



•> Do we have a default device name? 

> Br if not 

s Move in default device name 

; Point back over terminating null 



; Get pointer to command buffer 
> Copy command text string 



Now move string back to command buffer 



001402' 



1 



4 



001376 



MOV 


#BLKO, 


R2 


MOV 


R3f R4 




MOVB 


<R2)+, 


( R4 ) i 


BNE 


5* 





Point to start of new string 
Point to destination area 
Copy string 



TSKMN1 — TEX PLug Keyboard 

INDINI -- Start IND program 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 



1524 

1540 
1 544 



1350 
1 570 
1574 
1600 
1606 
1612 
1620 
1626 
1630 



156767 
142767 
012705 
000167 



1 2704 
10 5267 
156767 
116701 
052761 
142767 
005000 
000167 







; Now process 


like a \'< command 


OOOOOOG 


OOOOOOG 


B I SB 


UERSEV, INDERR 


OOOOOOG 


OOOOOOG 


B1CB 


#IN*CMD, INDSTA 


000254 ' 




MOV 


#SYSAV, R5 


0000000 




JMP 


RUNNAM 






Reopen channel to IND. SAV fil 






INDRUN: . REOPEN 


#XAREA, #RUNCHN, # 


000402' 




MOV 


#TWDNAM.- R4 


OOOOOOG 




INCB 


CINFLG 


OOOOOOG 


OOOOOOG 


BISB 


UERSEV, INDERR 


OOOOOOG 




MOVB 


CORUSR, Rl 


OOOOOOG 


OOOOOOG 


BIS 


#*INDRN, LSW5<R1> 


OOOOOOG 


OOOOOOG 


BICB 


#IN*CMD, INDSTA 






CLR 


RO 


OOOOOOG 




JMP 


PLOAD 



Pass error sev level to IND 
Say no IND command pending 
Point to default device <SY) 
Enter RUN code 



POINT TO NAME OF IND 

SAY A . CHAIN IS IN PROGRESS 

PASS ERROR SEV LEVEL TO IND 

GET JOB INDEX NUMBER 

SAY IND IS RUNNING 

SAY NO IND COMMAND PENDING 

No run option flags for PLOAD 

GO START RUNNING IND 



i »f\ ni\i jl — ias-r i u s a e ij » u cs r a 
Process CCL commends 



.1 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

1 7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



Oil 634 
011640 
011644 
011646 
011652 
011654 
1 1 660 
011662 
Oil 666 
011672 
011674 
011700 
1 1 702 
011706 
011710 

011712 
011714 
1 1 720 
011724 
011726 
1 1 732 
011734 
011740 
011742 
011750 
011752 
011756 
1 1 760 
011764 
011772 
011774 
012000 
012004 
012006 
012012 
012016 
1 2020 
012024 
012032 
012034 
012040 
012044 

012050 
012070 
012074 



012703 
012704 
1 1 2400 
120027 
001403 
120027 

oo i 002 

1 1 2700 
1 20027 
103405 
120027 
101002 
162700 
1 1 0023 
001355 

005003 
016104 
032704 
001417 
032704 
001403 



001403 
052703 
000402 
052703 
032761 
001402 
052703 
032704 
001402 



OJ 



r 03 



032704 
00 1 402 
052703 
032761 
001402 
052703 
1 1 0337 
110137 



0.1.2704 
105267 
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BBTTL Process CCL command 5 



f 



THIS ROUTINE HANDLES CCL COMMANDS SUCH AS COMPILE, COPY, ETC. 
IT MOVES THE CCL COMMAND TO THE CHAIN DATA AREA THEN CALLS 
THE PROGRAM "SY: CCL. SAV" WHICH TRANSLATES THE CCL COMMAND 
INTO A SERIES OF SIMPLE COMMANDS WHICH ARE RETURN TO KMON 
IN THE CHAIN AREA WHEN CCL. SAV EXITS. 



MOVE CCL COMMAND TO CHAIN AREA. 



00001 20 
001156' 

000011 

000014 

000040 
000141 

000 1 72 

000040 



1$: 



10*: 
11*: 



6*: 



NOW 



OOOOOOG 
OOOOOOC 



OOOOOOG 

052703 000001 

00041.1. 

026127 OOOOOOG OOOOOOG 

000020 



000040 

OOOOOOG OOOOOOG 

000100 
OOOOOOG 

000002 
OOOOOOG 

000010 

OOOOOOG OOOOOOG 

000004 
0000 10G 
00001 1G 



000372 ' 
OOOOOOG 



CMDCCL: MOV 
MOV 
MOVB 
CMPB 
BEG 
CMPB 
ONE 
MOVB 
CMPB 
BLO 
CMPB 
BHI 
SUB 
MOVB 
BNE 
SET SOME 
CLR 
MOV 
BIT 
BEQ 
BIT 
BEQ 
BIS 
BR 
CMP 
BEQ 
BIS 
BR 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
MOVB 
MOVB 
Reopen channe 
. REOPEN 
MOV 
INCB 



7$: 



8$ 

2$ 



9*: 



3*: 



5*: 



4*: 



LOOP 

OCATION 510 

FORM 



#CINDAT+.t2, R3 

#CMD.BUF.. R4 

(R4>+, RO 

RQ, #TAB 

10* 

RO, #FF 

11* 

#' ,RQ 

RO, #141 

6* 

RO, #172 

6* 

#40, RO 

RO, <R3> + 

1* 

FLAGS IN L 

R3 

LSW5<R1),R4 

#*TECO ! *KED, R4 

2* 

#*TECO, R4 

7* 

#C*TECO, R3 

2* 

LTRMTP(R1),#VT52 

8* 

#C*KED, R3 

2* 

#C*K52, R3 

#*DIBOL, LSW6<R1) 

9* 

#C*DIBL, R3 

#*WILD, R4 

3* 

#C*WILD, R3 

#*CLTST, R4 

5* 

#C*TEST, R3 

#*QUIET, LSW4(R1) 

4* 

#C*QUIT, R3 

R3, @#CINDAT+iO 

Rl, @#CINDAT+11 



POINT TO CHAIN DATA AREA 

POINT TO COMMAND BUFFER 

GET NEXT CHAR FROM COMMAND LINE 

IS CHARACTER TAB? 

BR IF YES 

FORM-FEED? 



TAB AND FF 
IS A LOWER 



TRANSLATE 

SEE IF IT 

BR IF NOT 

LOWER CASE I 

BR IF DELIMITER 

CONVERT LOWER-CASE 

MOVE CHAR TO CHAIN 



TO SPACE 
CASE LETTER 



UP UPPER- 
AREA 
TILL ASCIZ NULL MOVED 



CASE 



FLAG WORD IN R3 
PICK UP STATUS WORD 
IS DEFAULT EDITOR TECO OR KED? 
BR IF NOT (MUST BE EDIT THEN) 
IS IT TECO? 
BR IF NOT 
TELL CCL TO USE TECO 

IS TERMINAL TYPE VT52? 
BR IF YES (EDITOR = K52> 
DEFAULT EDITOR = KED 

DEFAULT EDITOR = K52 

IS DIBOL OR DBL DEFAULT COMPILER? 

BR IF DBL IS DEFAULT 

REMEMBER DIBOL IS DEFAULT 

WANT IMPLICIT/EXPLICIT WILDCARDS? 

BR IF WANTS EXPLICIT 

SET IMPLICIT-WILDCARD FLAG 

DO CCL IN TEST MODE? 

BR IF NOT 

SET TEST MODE FLAG 

ARE COMMAND FILES IN QUIET MODE? 

BR IF NOT 

SET QUIET FLAG 



€ 



STORE FLAG WORD INTO CHAIN DATA AREA 
STORE USER INDEX # IN 511 FOR CCL 

1 16 with CCL file status saved during initialization. 

#XAREA, #RUNCHN, #CCLSAV ; OPEN CHANNEL TO CCL. SAV FILE 

#CCLNAM, R4 ; POINT TO CELL WITH CCL NAME 

CINFLG ; SIMULATE CHAIN 



{ 

TSKI1N1 — TSX~P"lus Keyboard Hon MALRU V05. 04 Monday 21 -Dec -87 11:40 Page 24-1 
Process CCL commands 

58 012100 052761 0000000 0000000 BIS #$CCLRN, LSW5<R1 >> REMEMBER CCL. SAV IS RUNNING 

59 012106 005000 CLR RO > No run option flaqs for PLOAD 

60 012110 000167 0000000 JMP PLOAD ; LOAD AND START CCL. SAV 



( 

< 
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< 
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INSCF 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
tz. 1 
2? 

23 

24 

25 

26 

27 
23 
29 
30 
31 
32 

33 

34 



O 1 P 1 1 4 01 0246 



012116 
012122 
012126 



12130 
12134 
1 2 1 42 
12150 

12154 
12156 
12164 



12172 



012700 
004767 
103420 



012702 
056262 
046262 
162702 
002367 
056767 
004767 



012602 
000207 



. SBTTL INSCF 



Bee if a command file is installed with priv 



This routine is called when we are starting a command file to see 

if the command file has been installed with any privileges. 

If so, the privileges are applied to the command file and current 

privileges for the job. 

PUSHCF should be called before this routine. 

Inputs: 
FILNAM = File spec for command file being started 



INSCF: 



Mnv 



R3. 



■ < KP ) 



See if this command file is installed 



000450' 
0000000 



NOV 


#FILNAM, RO 


CALL 


INSSRC 


BCS 


9* 



iPoint to file spec 

; See if file is in install table 

> Br if not 



Command file is installed. 
Apply any privilege changes. 



ooooooc 

ooooooc 
ooooooc 

000002 

ooooooc 

0000000 



OOOOOOG 1*: 
OOOOOOC 



OOOOOOG 



9*: 



MOV 
BIS 
BIC 
SUB 
BGE 
BIS 
CALL 

F i n i s h <■? d 

NOV 
RETURN 



#2*<PVNPW-1>, R2 ;Get index to last privilege word 

II*PRV+IIBUF<R2>» PRIVF0<R2) ; Set some flags 

II*NPV+IIBUF<R2>,PRIVF0<R2> ; Clear some flags 

#2, R2 i Nore to do? 

1* ; Loop if yes 

II*FLG+IIBUF, AFCF ; Set command file attribute flags 

RSTPRV ;Set current attributes for command file 



(SP)+, R2 



\ 
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- Perform terminal -dependent initialization 



Fage 



4 








5 








6 








7 

a 








9 


012174 


010246 




10 








1.1. 








12 








13 


012176 


016100 


0000000 


14 


1 2202 


016102 


000000G 


15 








16 


012206 


032700 


0000000 


17 


012212 


00 1 4 1 




18 


012214 


04 2702 


0000000 


19 


012220 


052702 


0000000 


20 


012224 






21 


\J X CLCLwC 


oooso::? 




23 


012234 


032700 


ooooooc 


24 


012240 


001410 




25 


1 2242 


042702 


0000000 


26 


012246 


052702 


0000000 


27 


012252 






28 


012260 


000470 




29 








30 


012262 


032700 


0000000 


31 


012266 


001410 




32 


012270 






33 


012276 


042702 


0000000 


34 


012302 


052702 


0000000 


35 


012306 


000455 




36 








37 


012310 


032700 


0000000 


38 


012314 


00 1 4 1 




39 


012316 






40 


012324 


042702 


0000000 


41 


012330 


052702 


0000000 


42 


012334 


000442 




43 








44 


012336 


032700 


0000000 


45 


1 2342 


001405 




46 


012344 


042702 


0000000 


47 


012350 


052702 


0000000 


48 


012354 


000432 




49 








50 


012356 


032700 


0000000 


51 


012362 


001405 




52 


1 2364 


042702 


0000000 


53 


012370 


052702 


0000000 


54 


012374 


000422 




55 








56 


012376 


032700 


0000000 


57 


012402 


001410 





. SBTTL TRMINI 



Perform terminal-dependent initialization 



TRMINI is called during job start-up initialization to perform 
terminal dependent initialization. 

I n p u 1 5 : 
Ri ~ Job index number. 

TRMINI: MOV R2, ~<SP) 

Get initial LSW2 flags 



VT100 



MOV 
MOV 
) 

BIT 
BEG 
BIC 
BIS 



BR 

; VT200 

14*: BIT 
BEO 
BIC 
BIS 
. PRINT 
BR 

> VT52 

32*: BIT 
BEQ 



BIS 

BR 
i ADM3A 
16*: BIT 
BEQ 

. PRINT 
BIC 
BIS 
BR 
; LA36 
17*: BIT 
BEQ 
BIC 
BIS 
BR 
; LAI 20 
18*: BIT 
BEQ 
BIC 
BIS 
BR 
.; Hazel tine 
19*: BIT 
BEQ 



LTRMTPfRl >,R0 
LSW2<R1 >,R2 

#VT100, RO 
14* 

#VT10N0, R2 
#VT10FL, R2 



.PRINT #IMVT.10 



GET TERMINAL TYPE FLAGS 
GET LSW2 FLAGS 

IS THIS A VT100 TERMINAL? 

BR IF NOT 

SET FLAGS FOR LSW2 

> CLEAR SCREEN 



15* 



#vr20G7!VT2008, RO ; VT200 terminal? 



32* 

#VT20N0, R2 
#VT20FL, R2 
#IMVT10 
1 5* 



#VT52, RO 

16* 

. PRINT #IMVT52 
BIC #VT52N0, R2 



#VT52FL, R2 

15* 

#ADM3A, RO 
17* 

#IMADM3 
#ADM3N0> R2 
#ADM3FLj R2 
15* 

#LA36, RO 
18* 

#LA36N0, R2 
#LA36FL, R2 
15* 

#LA120, RO 
19* 

#LA12N0, R2 
#LA12FL>R2 
15* 

#HAZEL, RO 
20* 



; Br if not 

; Set flags for VT200 

; Clear screen 



IS THIS A VT52 TERMINAL? 

BR IF NOT 

CLEAR SCREEN 

SET FLAGS IN LSW2 



IS THIS AN ADM3A TERMINAL? 
BR IF NOT 
CLEAR SCREEN 
SET LSW2 FLAGS 



IS THIS AN LA36? 
BR IF NOT 
SET FLAGS 



IS THIS AN LA 120? 
BR IF NOT 
SET FLAGS 



i HAZELTINE TERMINAL? 

; BR IF NOT 



TSKMN1 - 
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— Perform terminal-depe 


58 


012404 






59 


012412 


042702 


0000000 


60 


012416 


052702 


0000000 


61 


012422 


000407 




62 








63 


012424 


032700 


OOOOOOC 


64 


012430 


001410 




65 


012432 


042702 


0000000 


66 


012436 


052702 


0000000 


67 








68 


012442 


010261 


OOOOOOG 


69 


012446 


1 026 ,! 


OOOOOOG 


70 








71 








72 








73 


012452 


012602 




74 


012454 


000207 
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. PRINT #IMHAZL 
BIC #HAZLNO, R2 
BIS #HAZLFL,R2 
15* 
QUME 

#DIASLO!QUMt- 
1* 

#DIABNO, R2 
#DIABFL, R2 
> Store updated LSW2 flagb. 
15*: MOV R2iLSW2<Rl> 



BR 
; D I ABLE S< 
20*: BIT 
BEO 
BIC 
BIS 



MfW 



F i n i & h e d 



R2.- LSW2S(R.I. > 



MOV <SP>+, R2 
RETURN 



RO 



CLEAR SCREEN 

SET TERMINAL CONTROL FLAGS 



DIABLO OR 
BR IF NOT 
SET FLAGS 



QUME TERMINAL? 



I fciKHNi — i ittX-i- .t us h\s\\ uoara non nwwKu vud. U4 
VJRINI ~- Virtual lino initialization 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
42 
43 
44 

45 

46 
47 
48 
49 

50 

51 

52 

53 



SBTTL VIRINI - Virtual line initialization 



12456 
12460 
12462 



12470 
12474 
1 2476 
12502 
12506 
12512 
12514 
12516 
12522 



12524 
12530 
12532 
12534 
12536 
12540 
12544 
12552 
12560 



12570 
12574 



12600 
12602 
12604 
12606 



1 0246 
010346 
010446 



012464 016102 0000000 



005762 
00 1 4 1 3 
012700 
110260 
106260 
104375 
103403 
1 2700 
104375 



016204 
005003 
005203 
120124 
001375 
062703 



016102 
004767 



01 2604 
012603 
01260;' 
000207 



OOOOOOG 

001114' 

000007 

000007 



001126' 



OOOOOOG 



000060 



0000000 
OOOOOOG 



Perform initialization Por virtual lines during job startup. 

If the primary line is using display windows then create a display 

window for the virtual line. Otherwise print n>. 



I n p u t s : 
Rl •- vlob index number 



VIRINI: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R4. -CRP) 



Get job index number of our primary job 

MOV LNPRIM(R1)»R2 J GET PRIMARY LIME INDEX NUMBER 

If primary line is using a display window* try to create one for 
this job. 



Is primary line using a display window? 

Br if not 

Point to make-window argument block 

Set index # of primary job 

Convert index to job number 

Try to create a window 

Br if unable to create a window 

Point to map-window argument block 

Select this window 



i GET ADDRESS OF TABLE WITH VIRTUAL LINES 
i COUNT VIRTUAL LINE # 'S 

i LOOK UP OUR VIRTUAL LINE # 

i CONVERT NUMBER TO ASCII 
i PRINT CR-LF 
; PRINT LINE # 
i PRINT '>' 



Try to copy any key definitions from primary line 





TST 


LWIND0<R2> 




BEQ 


1* 




MOV 


#MAKWIN, RO 




MOVB 


R2, 7<R0> 




ASRB 


7(R0) 




EMT 


375 




BCS 


1* 




MOV 


#MAPWIN, RO 




EMT 


375 


} 

i p 


rint n> 




IS: 


MOV 


LSECPT<R2)>R4 




CLR 


R3 


13*: 


INC 


R3 




CMPB 


Rl, <R4) + 




BNE 


13* 




ADD 


#'0, R3 




. PRINT 


#CRLF 




. TTYOUT 


R3 




. TTYOUT 


#76 



7*: 



MOV 


LNPRIM<R! ), R2 


CALL 


INIUKD 


F i n i s h e d 




MOV 


<SP)+, R4 


MOV 


<SP>+; R3 


MOV 


(SP)+, R2 


RETURN 





; Get our primary line number 
;Copy any user-defined keys 



CPYPRN - 

1 
2 
3 
4 
5 
6 
7 

b 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 

53 
54 

55 
56 
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Copy context info from parent job 
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12610 
12612 
12614 



012616 
012622 
012624 



12630 
12634 
12640 
12644 
1 2646 



01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



2652 
2656 
2664 



2666 
2670 
2672 
2676 
2702 
2706 
2712 
2716 
2720 
2722 
2730 
2736 
2744 



01 
01 



01 

01 
01 
01 



2752 
2760 



2766 
2772 
2776 
3004 



010246 
010346 
010546 



016102 
001002 
000167 



010267 
006267 
012700 
104375 
004767 



012700 
1 1 6260 
104375 



1 0203 
010105 
070327 
070527 
062703 
062705 
012700 
112325 
077002 
016261 
016261 
016167 
016167 



016261 

016261 



016200 
042700 
042761 
05006.1 



. SBTTL CPYPRN — Copy context info from parent job 
Copy context information from a parent job. 



CPYPRN: MOV 

MOV 
MOV 



R2, -<SP> 
R3> -<SP> 
R5, -<SP> 



Return immediately if there is no parent job 



OOOOOOG 
000456 



165746 
165742 
000600 ' 

0000000 



001110" 
0000000 



MOV LPARNT<R1>, R2 

BME P* 
JMP 9* 



Oet # of parent job 

Br if there is a parent job 

No parent job — Nothing to copy 



Copy file context and privilege information 



MOV 


R2. CPYCXT+2 


ASR 


CPYCXT+2 


MOV 


#CPYCXT, RO 


EMT 


375 


CALL 


LDCLEN 



; Get # of parent job 

; Convert to job number 

; Point to EMT arg block 

; Copy context from parent job 

>Reinit LD status 



Copy execution priority 



000002 



MOV #PRIEMT,R0 ; Point to emt argument block 

MOVB LBSPRI <R2>, 2<R0>; Get base priority from parent job 

EMT 375 > Set the job priority 



Copy user name and PPN 



000006 

000006 

000000G 

O000O0G 

000014 



000000G 000000G 
000000G OOOOOOG 
000000G OOOOOOG 
OOOOOOG 000002G 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

ooooooc 

OOOOOOG OOOOOOG 
OOOOOOG 



1$: 



MOV 

MOV 

MUL 

MUL 

ADD 

ADD 

MOV 

MOVB 

SOB 

MOV 

MOV 

MOV 

MOV 



Rl, R5 
#6. , R3 
#6. , R5 
#LUNAME, R3 
#LUNAME, R5 
#12. , RO 
<R3)+, <R5) i 
RO, 1* 
LPR0J(R2) 
LPR0G(R2> 
LPR0J<R1) 
LPR0G<R1) 



> Get # of parent job 
; Get # of our job 

j Get offset to name of 
; Get offset to name of 
; Point to tab 1 es 

; Get # chars to move 

> Copy user names 



parent job 
our job 



LPROJ(Ri ) > Copy project number 
LPROG<Ri ) i Copy programmer number 
UPPN i Set project number 

Set programmer number 



Copy flags from LSW2 



MOV 
MOV 



LSW2<R2),LSW2<R1) ;Copy 
LSW2S<R2),LSW2S<R1) 



LSW2 flags 



Copy some flags from LSW5 



MOV 
BIC 
BIC 
BIS 



LSW5<R2>> RO 
#-C<ISPF5>, RO 
#ISPF5, LSW5<R1) 
RO, LSW5<R1) 



Get flags from parent's LSW5 
Clear all but selected flags 
Clear those flags in our LSW5 
Transfer flags from parent job 



Copy some flags from LSW6 



i 
f 

c 
< 
f 
< 

€ 

< 
< 
< 

€ 

< 

i 
« 
i 
4 
< 
( 



f'SKMNl • 


— TSX-Klus Keyboard lion 


11ACNU vut. 
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58 








f 


59 


013010 


1 6200 


000000G 




60 


013014 


042700 


OOOOOOC 




61 


013020 


.042761 


OOOOOOG 


OOOOOOG 


62 


013026 


050061 


OOOOOOG 




63 










64 










65 










66 


013032 


016200 


0000000 




67 


013036 


042700 


OOOOOOC 




68 


013042 


042761 


0000000 


OOOOOOG 


69 


013050 


050061 


0000000 




70 










71 










/ tz. 










73 


013054 


016200 


OOOOOOG 




74 


013060 


042700 


OOOOOOC 




75 


013064 


042761 


OOOOOOG 


OOOOOOG 


76 


1 3072 


050061 


OOOOOOG 




77 










73 










79 










SO 


1 3076 


016200 


OOOOOOG 




81 


013102 


042700 


OOOOOOC 




82 


013106 


042761 


OOOOOOG 


OOOOOOG 


83 


013114 


050061 


OOOOOOG 




84 










85 










86 










87 


013120 


01026/ 


165756 




88 


013124 


012767 


OOOOOOG 


165752 


89 


013132 


012767 


OOOOOOC 


165746 


90 


013140 


012700 


001076' 




91 


013144 


104375 






92 










93 










94 










95 


013146 


012767 


OOOOOOG 


165730 


96 


013154 


012767 


000006 


165724 


97 


013162 


1 2700 


001076' 




98 


013166 


104375 






99 








> 


100 








i 


101 








i 


102 


013170 


012767 


OOOOOOG 


165706 


103 


013176 


012767 


000010 


165702 


104 


013204 


012700 


00.1,076' 




105 


013210 


104375 






106 










107 










10B 










109 


013212 


012767 


OOOOOOG 


165664 


110 


013220 


012767 


000020 


165660 


111 


013226 


012700 


001076' 




112 


013232 


104375 






113 








t 


114 








J 
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Copy 



MOV 


t_SW6(R2),R0 


B.IC 


#-'C<ISPF6>, RO 


BIC 


#ISPF6, LSW6<R1> 


BIS 


RO, LSW6<R1> 


some 


flags from LSW7 


MOV 


LSW7<R2>, RO 


BIC 


#' l C<ISPF7>, RO 


BIC 


#ISPF7, LSW7(R1) 


BIS 


BO. 1 «U7<R1 ) 



Copy some flags from LSW9 

MOV LSW9<R2),R0 
BIC #---C<I5PF9>, RO 
BIC #ISPF9, L8W9<R1) 
BIS RO, LSW9<R1> 

Copy some flags from LSW11 



Get flags from parent's LSW6 
Clear all but selected flags 
Clear those flags in our LSW6 
Transfer flags from parent job 



> Get flags from parent's LSW7 
;Clear all but selected flags 
; Clear those flags in our LSW7 
i Transfer flags from parent job 



Get flags from parent's LSW9 
Clear all but selected flags 
Clear those flags in our LSW9 
Transfer flags from parent job 



MOV LSW1KR2),R0 ; Get flags from parent's LSW11 

BIC #- x C<ISPFll>, RO ; Clear all but selexted flags 

BIC #ISPFil, LSW1KR1); Clear those flags in our LSWU 

BIS RO.LSWIHRi) ; Transfer flags from parent job 

Copy Kmon prompt string 



MOV 
MOV 
MOV 
MOV 
EMT 



R2, EMCXCP+4 ; Set # of job we are copying from 
#KMPRMT, EMCXCP+6; Set address of item 
#«MXPRMT+2>&76>, EMCXCP+8. ; Set # bytes to copy 
#EMCXCP,RO ; Point to EMT arg bloclc 
375 ; Copy Kmon prompt string 



Copy default printer form name 



MOV 
MOV 
MOV 
EMT 



#UFORM, EMCXCP+6 ; Set address of item 



#6, EMCXCP+8. 
#EMCXCP, RO 
375 



> Set # of bytes to copy 
i Point to EMT arg block 
iCopy default form name 



Copy User Command Interface <UCI) file spec 



MOV 
MOV 
MOV 
EMT 



#UCISPC> EMCXCP+6i Set address of item to copy 
#3. , EMCXCF+8. ;Set # bytes to copy 
#EMCXCP,RO i Point to EMT arg block 
375 .-Copy UCI file spec 



Copy subprocess start-up command file spec 

MOV #SBPSUF, EMCXCP+6; Set address of item to copy 

MOV #16. , EMCXCP+8. ; Set # bytes to copy 

MOV #EMCXCP,RO ; Point to EMT arg block 

EMT 375 >Copy subprocess start-up file spec 

Copy print-windou.1 device information 



I'SKMNl — 
CPYPRN — 

115 

116 
117 
US 
119 
120 
121 
122 
123 
124 
125 
.1 26 
127 
128 
129 
130 
131 
132 
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013234 
013242 
013250 
013254 
013256 
1 3264 
013270 
1 3272 
1 3300 
013304 



013306 
013310 
013312 
013314 



1 2767 
012767 
1 2700 
104375 
012767 
012700 
104375 
012767 
012700 
104375 



012605 
01 2603 
012602 
000207 



0000000 

000002 

001076' 

0000000 
001076' 

000000G 
001076' 



165642 
165636 



165620 



165604 



MOV 
MOV 
MOV 
EMT 
MOV 
MOV 
EMT 
MOV 
MOV 
EMT 

F i n i h & e d 



9*: 



MOV 
MOV 
MOV 
RETURN 



c 



#JPWDEV, EMCXCP+6.; Set address of print-window device 

#2, EMCXCP+8. ; Set # bytes to copy 

#EMCXCP»RO > Point to EMT arg block 

375 iCopy JPWDEV 

#JPWTYP, EMCXCP+6; Set address of print-window dev type 

#EMCXCP,RO i Point to EMT arg block 

375 i Copy JPWTYP 

#JPWFLG, EMCXCP+6; Set address of print-window flag word 

#EMCXCP, RO ; Point to EMT arg block 

375 iCopy JPWFL.G 



<SP)+, R5 
(SP)+, R3 
<SP)+, R2 
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BBTTL PRTGRT — Print the logon greeting message 



3 



C 

c 



5 








6 








7 


013316 


020127 


000000(3 


S 


013322 


003157 




7 


013324 


005727 


000002 


io 


013330 


00 1 403 




11 


013332 






12 


013340 


032761 


000000G 000000G 


13 


013346 


001064 




14 


013350 


052761 


000OO0G OOOOOOG 


15 


V X wlJDu 


020127 


0000000 


16 


013362 


101056 




17 


013364 


005727 


000002 


13 


1 3370 


001453 




19 








20 








21 








22 


1 3372 


012702 


1765320 


23 


013376 


005003 




24 


013400 


012704 


001402' 


25 


013404 


1 1 2200 




26 


013406 


060003 




27 


013410 


005400 




28 


013412 


00 1 424 




29 


013414 


020227 


OOOOOOG 


30 


013420 


103371 




31 








32 








33 








34 


013422 


105767 


0000000 




013426 


001003 




36 


013430 


005727 


000001 


37 


013434 


001013 




38 


013436 


020227 


0000000 


39 


013442 


103410 




40 


013444 


101357 




41 


013446 


1 1 2724 


000056 


42 


013452 


1 1 2724 


000015 


43 


013456 


1 1 2724 


0000.1.2 


44 


013462 


000750 




45 


013464 


1 1 0024 




46 


1 3466 


001346 




47 


013470 






48 


013476 


005403 




49 


013500 


005203 




50 








51 








52 








53 


013502 


020327 


OOOOOOG 


54 


013506 


001404 




55 








56 


013510 


005037 


000100 


57 


013514 


005037 


000060 



During logon processing; print the TSX-Plus logon greeting message. 
fhe greeting message is different depending on the value of GREET and 
the PROFLG (flag indicating a professional machine). 



PRTGRT: CMP R1,#LSTPL 

BOT GRTVIR 

TST #GREET 

BEG 23* 

. PRINT #GRT1 

23*: BIT #*1STLG. LSW6(R1 ) 

BNE GRTFIN 

BIS #*1STLG, LSW6(R1> 

CMP R 1 , #LSTPL 

BHI GRTFIN 

TST #GREET 

BEQ GRTFIN 



IS THIS A REAL OR VIRTUAL LINE? 

BR IF VIRTUAL — ABBREVIATE GREETING 

IS PRINTED GREETING WANTED? 

BR IF NOT 

TSX NAME AND VERSION NUMBER 

IS THIS THE 1ST TIME THIS LINE LOGGED ON? 

BR IF NOT 

REMEMBER 1ST LOGON HAS OCCURED 

IS THIS A REAL OR VIRTUAL LINE? 

BR IF VIRTUAL — SKIP LONG MESSAGE 

SHOULD WE PRINT GREETING MESSAGE? 

BR IF NOT 



Calculate the message checksum. 



2*: 



MOV #SUMS~1246, R2 

CLR R3 

MOV #BLKO, R4 

MOVB (R2>+, RO 

ADD RO, R3 

NEG RO 

BEQ 3* 

CMP R2, #LICTXT 

BHIS 2* 



GET ADDRESS OF START OF MESSAGE 

FORM CHECKSUM IN R3 

TEMPORARILY STORE GREETING HERE 

GET CHARACTER FROM MESSAGE 

FORM CHECKSUM 

DECRIPT CHARACTER 

BR IF END OF MESSAGE TEXT 

CHECK FOR LICENSE TEXT 

BR IF INTO THE LICENSE TEXT 



Check for various flags that indicated message variations. 



TSTB 
BNE 
TST 
BNE 

4*: CMP 
BLO 
BHI 
MOVB 
MOVB 
MOVB 
BR 

3$: MOVB 
BNE 

1*: . PRINT 
NEG 
INC 

If the foil 
change the 
CMP 
BEQ 
Chec k sum fa 
CLR 
CLR 



PROFLG 

4* 

#GREET~1 

3* 

R2> #TRGRET 

3* 

2* 

#'. , (R4) + 

#CR, (R4)+ 

#LF, (R4H- 

2* 

RO, (R4) + 

2* 

#BLKO 

R3 

R3 

owing range of 
program that a 

R3, #SUCS 

GRTFIN 

ilure — l< i X 1 
©#100 
©#60 



ARE WE RUNNING ON A PROFESSIONAL? 

BR IF YES — PRINT TRUNCATED GREETING 

CHECK FOR TRUNCATED GREETING MESSAGE 

BR IF FULL MESSAGE IS PRINTED 

CHECK FOR TRUNCATED MESSAGE END 

CONTINUE MOVING THE GREETING MESSAGE 

GET THE NEXT CHARACTER 

PLACE PERIOD AT THE END OF TRUNCATED MESSAGE 

PLACE CARRIAGE RETURN AFTER PERIOD 

PLACE LINE-FEED AFTER PERIOD 

GET THE NEXT CHARACTER 

PUT IN TEMP BUFFER 

BR IF MORE OF MESSAGE TEXT 

PRINT GREETING MESSAGE 

DECRIPT CHECKSUM 



instructions are altered — 
ssigns micro TSX-Plus license numbers. 

i CHECK CHECKSUM 

i BR IF OK 
TSX 

jDIE HORRIBLY. . . 



( 



IStMINl - 
PRTGRT - 

50 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
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013520 
013524 



013526 
013534 
1 3540 
013544 
013552 
013556 



013566 
013572 
013574 
1 3600 
013604 
013606 
013610 
013612 
013614 
013620 



013626 
013632 
013634 
013640 
013642 
013646 
013650 
013656 



013662 
013670 
1 3672 
013674 
013700 
013706 
013716 



Check Bum ok, set up site number. 



10 576/ 
001415 



OOOOOOG 



GRTFIN: TSTB 
BEQ 



PROFLG 
1$ 



i ARE WE RUNNING ON A PROFESSIONAL? 
; BR IF NOT 



Print license number on a Professional 



016705 
004767 

004767 
000441 



OOOOOOG 
OOOOOOG 

OOOOOOG 



Print 



. PRINT 


#TM*LN1 


MOV 


TSXSIT, R5 


CALL 


PRTDEC 


. PRINT 


#CRLF 


CALL 


DATTIM 


BR 


GRTVIR 


1 icens 


e number i 



"License # = mmmm-TPS-" 

Get the license number 

Print it 

Terminate the print line 

Print date and time 

Go print line number 



not on a professional 



013560 012767 OOOOOOG OOOOOOG 1*: 



005727 
002451 
012704 
012702 
112200 
005400 
1 1 0024 
001374 

.t i a. .' tz.' i 



000001 

001402' 
OOOOOOG 



000200 



1 1 6700 
005400 
120027 
001406 
120027 
001403 



OOOOOOG 



000123 



000163 



004767 OOOOOOG 



MOV #TSXLN, TSXSIT ; STORE SITE NUMBER 
If the preceeding range of instructions are altered — 
change the program that assigns micro TSX-Plus license numbers. 

SHOULD WE PRINT DATE AND TIME? 
BR IF NOT 

TEMPORARILY STORE GREETING HERE 
OBTAIN LICENSE TEXT ADDRESS 
t*i MOVB <R2>+, RO iGET CHARACTER FROM MESSAGE 

DECRIPT CHARACTER 
31*: MOVB RO, <RA)+ i PUT IN TEMP BUFFER 

BR IF MORE OF MESSAGE TEXT 
NO CR/LF FOLLOWING TEXT 
PRINT GREETING MESSAGE 

>, then print license is unsupported. 

OBTAIN THE SUPPORT CODE <SIGN EXTEND) 

DECRIPT THE CHARACTER 

CHECK FOR SUPPORTED LICENSE 

BR IF LICENSE SUPPORTED 

CHECK FOR SUPPORTED LICENSE 

BR IF LICENSE SUPPORTED 

PRINT UNSUPPORTED LICENSE TEXT 

PRINT CURRENT DATE 8< TIME 



TST 


#GREET~1 


BLT 


GRTEND 


MOV 


#BLK0> R4 


MOV 


#LICTXT, R2 


MOVB 


<R2>+, RO 


NEG 


RO 


MOVB 


RO, <R1> + 


BNE 


21* 


MOVB 


#200, <R4)+ 


. PRINT 


#BLKO 



i If not supp 


orted ("S" 


PRTSUP: MOVB 


SUPCOD, RO 


NEG 


RO 


CMPB 


RO, #'S 


BEQ 


61* 


CMPB 


RO, # ' s 


BEQ 


61* 



010105 
006205 
004767 OOOOOOG 



000207 



.PRINT #UNSUP 
61*: CALL DATTIM 

Print line number. 

GRTVIR: .PRINT #LINNTX 

MOV R1,R5 

ABR R5 

CALL PRTDEC 

. PRINT #CRLF 

. TTYOUT #LF 

GRTEND: RETURN 



■> DISPLAY LINE # 
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1 

2 

3 

4 

5 

6 

7 

8 

9 013720 0.10246 
10 013722 010346 
11 
12 
13 

14 013724 004767 0000000 
15 
16 
17 

18 013730 012703 OOOOOOG 

19 013734 032761 OOOOOOG OOOOOOG 

20 013742 001004 

21 013744 112723 000136 

22 013750 112723 000050 

23 013754 112723 000100 

24 013760 112223 

25 013762 001376 

26 013764 112763 000015 177777 

27 013772 112723 000012 

28 013776 105023 

29 014000 020327 OOOOOOG 

30 014004 103774 
31 

32 
33 

34 014006 012603 

35 014010 012602 

36 014012 000207 
37 

38 004362 ' 

Errors detected: 



. SBTTL SETSUF — Set up a start-up command file 

Set up a start-up command file for execution by the job. 

I n p u t s : 
Rl " Job index number 
R2 = Pointer to asciz command file name string. 



SETSUF: MOV 
MOV 



R2* -<SP> 
R3, -(SP> 



Stf^rt execution of a new command file 

CALL PUSHCF i SET UP FOR NEW COMMAND FILE 

Move command file name to buffer 



POINT TO COMMAND FILE BUFFER 

Is this a detached job? 

Br if yes 

PUT '■-■(© AT FRONT OF COMMAND 



63*: 
5$ 



6$: 



MOV 


#CFBUF, R3 ; 


BIT 


#*DETCH, LSW(Rl) J 


BNE 


63* ; 


MOVB 


#'-\ <R3H- ; 


MOVB 


#'<, <R3) + 


: MOVB 


#'©, <R3H- 


MOVB 


(R2)+i <R3)+ > 


BNE 


5* ; 


MOVB 


#CR,-1<R3) i 


MOVB 


#LF, <R3) + 


CLRB 


(R3)+ ; 


CMP 


R3, #CFEND 


BLO 


6* 


Finished 




MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





MOVE FILE NAME TO COMMAND AREA 
LOOP TILL ALL MOVED 
END LINE WITH CR-LF 

i FILL REST OF BUFFER WITH NULLS 



END 



START 



*** Assembler statistics 



Work file reads 
Work file writes 
Si ze of ujor k file 
Size of core pool 
Operating system 













11432 


Words 


17720 


Words 


RT ■■•■! 1 





< 45 Pages) 

< 70 Pages) 



Elapsed time: 00:01:37.58 

DK: TSKMN1, LP: TSKMN1=DK: TSKMN1. MAC/C/N: SYM 
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♦1STLG 


1-78 


29- .12 


29- 


-14 


♦CARUP 


1-95 








$CCLRN 


1-96 


12-50 


12 


-66 


♦CFABT 


1-110 


12-5 


12- 


-63 


♦CFALL 


1-116 








♦CFCCL 


1-116 


1 3-94 






♦CFDCC 


1-116 


12-32 






*CFKIL 


1-160 


10-21 


12- 


-5 


♦CFOPN 


1-122 


13-51 


17- 


-57 


♦CFSOT 


1-114 








♦CHACT 


1-68 


1 2-33 






♦CLTST 


1-106 


24-46 






♦CTRLC 


1-109 


10-22 






♦CTRLS 


1-101 








*DEAD 


1-159 








♦DEBUG 


1 -87 


12-26 






♦DEFER 


1-127 


10-162 






*DETCH 


1-99 


10-160 


30- 


-19 


♦Dl'BOL 


1-78 


24-40 






♦DILUP 


1-112 








♦DISCN 


1-100 








♦DOOFF 


1-118 


1 1 -26 






♦DUPRN 


1-113 


11-21 


11- 


-25 


♦ECHO 


1-115 


i 0-162 






♦EMTTR 


1-105 








♦FORM 


1-114 








♦FORMO 


1-116 








♦NITTY 


1-68 








♦INCOR 


1-131 








♦JNDAB 


1-109 


12-51 






♦INDDF 


1 - 1 58 


1 7-26 


19- 


-53 


♦INDRN 


1-158 


13-16 


13- 


-87 


♦ INIT 


1-159 








♦INKMN 


1-109 








♦KED 


1-131 


10-108 


24- 


-29 


♦KINIT 


1-64 


10-. i. J 


10- 


-175 


*LC 


1-115 


10-162 






♦MAPOK 


1-93 








♦MLOCK 


1-88 








♦NO IN 


1-68 


13-115 






♦NO I NT 


1-106 


12-34 






$NOVLN 


1-57 


1 0-68 






♦NOWTT 


1-68 


12-33 


12- 


-38 


♦NTGCC 


1-117 


X tz, "~ t-3 t f 






♦PAGE 


1-115 








♦PHONE 


1-159 








♦PRGLK 


1-97 


13-- J 02 






♦QTSET 


1-136 








♦QUIET 


1-128 


13-91 


17- 


-122 


♦RNIOP 


1-114 


12-26 






♦SCOPE 


1-115 








♦SETRN 


1-114 


11-18 






♦SLKED 


1-95 








♦SLLET 


1-95 


10-124 






♦SLON 


1-95 








♦SLTTY 


1-95 









13-16 13-87 13-92 13-96 24-58 



12-59 



13-96 23-21 23-73 



19-62 24-49 



{ 



( 
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*SNWTT 1-156 12-36 

$SPLJB 1-101 

*SUCF 1 -64 1 3- .t 1 4 1 7-47 

SSYSPS 1-67 10-138 

*TAB 1-114 

$TAPE 1-154 

*TECO 1-136 10-106 24~29 24-31 

$TTGAG 1-122 

SUCLCF 1-123 10-114 16-26 

*UCLCL 1-125 10-120 20-4 

$UCLCM 1-125 10-JI7 19-14 

*UCLRN 1-124 13-30 13-40 13-98 20 31 

SUKMON 1-96 14-24 21-18 

*UKMRN 1-96 13-98 21-12 

*VNOTT 1 -6 1 

$VTESC 1-92 12-25 

$WILD 1-137 10-130 24-43 

...VI 10-81 10-81 10-88 10-88 10-88 10-97 10-97 10-98 10-98 11-19 11-19 11-38 

11-39 11-43 11-47 11-49 11-55 11-58 14-9 14-32 15-127 17-43 17-43 17-43 



( 

r 
< 

< 
< 



17-65 17-65 17-124 19-33 19-33 19-33 19-43 19-43 19-43 19-55 19-80 19-80 < 

19-80 20-16 20-16 20-16 21-7 21-7 21-7 23-68 23-68 24-55 24-55 26-20 

26-27 26-32 26-39 26-58 27-39 27-40 27-41 29-11 29-47 29-66 29-69 29-88 



29-98 29-103 29-107 29-108 

V2 10-81 10-81 10-81# 10~81# 10-88 10-88 10-88* 10-88# 10-97 10-97 10-97# 10-97# 



i 



10-98 10-98# 11-19 U-19# 17-43 17-43 17~43# 17-43# 17-65 17-65 17-65# 17-65# 

19-33 19-33 19-33« 19-33# 19-43 19-43 19-43# 19-43# 19-55 19-55# 19-80 19-80 < 

19-80# 19-80# 20-16 20-16 20-16# 20~16# 21-7 21-7 2i-7# 21-7# 23-68 23-68 

23-68# 23-68# 24-55 24-55 24-55# 24-55# 

( 



AB1 1-73 4-30 

AB10 1-74 4-37 

ABU 1-74 4-38 

AB12 1-74 4-39 

AB13 1-74 4-40 

AB14 1-74 4-41 

AB15 1-74 4-42 

AB16 1-74 4-43 

AB2 1-74 4-3.1 

AB3 1-74 4-32 

AB4 1-74 4-33 

AB5 1-74 4-34 

AB6 1-74 4-35 

ABCMD 1-76 18-17 

ABM1 1-73 4-28 

ABM 10 1-73 4-21 

ABM 11 1-72 4-20 

ABM 12 1-72 4-19 

ABM 13 1-72 4-18 

ABM 14 1-72 4-17 

ABM 15 1-72 4-16 

ABM 16 1-72 4-15 

ABM 17 1-72 4-14 

ABM2 1-73 4-27 

ABM20 1-71 4-13 

ABM21 1-71 4-1? 

ABM22 1-71 4-11 

ABM23 1-71 4- JO 



€ 
€ 
4 

< 
< 
C 
i 
1 
4 
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ABM24 


1-71 


4-9 




ABM3 


1-73 


4-26 




ABM4 


1-73 


4-25 




ABM5 


1-73 


4-24 




ABM6 


1-73 


4-23 




ABM7 


1-73 


4-22 




ABRTAD 


1-61 


11-50 


11-59* 


ABRTCD 


1-61 


11-30 


1 1 -60* 


ABRTCF 


1-168 


12-49 


12-65 


ABRTOV 


1-61 


11-56 




ABTMSG 


4-29# 


U-37 




ACRDEC 


1-176 






ACRFIL 


1-175 






ACRFN 


1-168 


17-13 


19-26 


ACROCT 


1-178 






ADM3A 


1-150 


26-37 




ADM3FL 


1-151 


26-41 




ADM3N0 


1-152 


26-40 




AFCF 


1-58 


25-28* 




ALCDEV 


1-50 


7-52# 


8-53 


AI.CERR 


1-71 


4-7 




ALDBLK 


1-191 


7-29# 




ALDEMT 


1-50 


8-52# 




ALDEX 


1-190 


1-191 


7-2S# 


ALFN 


1-202 






AMBOPT 


1-51 


1-176 




ASDEX 


1-173 


7-2# 




ASKLNM 


1-172 


7-40# 




ASNEND 


1-113 






ASNHD1 


1-185 






ASNHD2 


1-185 






ASiMOVF 


1-51 


1-198 




ASNTBL 


1-112 






AUTHFN 


1-195 


7-30# 




BADBOT 


1-49 






BADCMD 


1 - 1 72 


19-78 


19-85*1 


BADPMT 


1-179 






BADPRI 


1-179 






BADSAV 


1-172 






BASMAP 


1-145 






BDFNAM 


1-175 






BDLGOP 


1-180 






BDLIN 


1-193 






BELL 


2-16# 






BLANK 


2-15# 


12-22 




BLKO 


1-171 
29-88 


9~5# 


9-6 


BLKWDS 


2~20# 






BOTDEV 


1-108 






BOTEMT 


1-47 


8-J12# 




BOTUNI 


1-108 






CSDIBL 


2-31# 


24-42 




C*K52 


2-30# 


24-39 




C$KED 


2~29# 


24-37 




C*QUIT 


2-27# 


24-51 




C$TECO 


2-25# 


24-33 





13-20 



19-73 



8-58 



8-63 



9-7 



1 0-94 



11-44 



1 J -47 



?3-54 



29-47 



29-81 
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Cross reference 


table (OREF 


V05. 04 ) 










C*TEST 


2~23# 


24-4B 












C$WILD 


2-26# 


24-45 












C. CSW 


1-119 














C. DEVQ 


1-119 














C. SBLK 


1-119 














CALUCL 


1-184 


16-14 


16-30 


1 9-20 


20-1 1# 






CALUKM 


14-28 


21-5# 












CBFEND 


9-2# 


15-103 












CCLNAM 


1-199 


7-32=8 


24-56 










CCLSAV 


1-1.04 


24-55 












CD$*SZ 


1-120 


S-70 


8-79 










CD**UB 


1-120 














CD*BAS 


1-120 














CD*DVU 


1-120 














CD* JOB 


1-120 














CD*NAM 


1-120 














CD* TOP 


1-136 














CDBUF 


1-50 


8-71 


8-80 


9-S# 








CDGADR 


1-53 


8-69# 












CDGEMT 


1-53 


8-67# 












C DP ADR 


1-53 


8~7S# 












CDPEMT 


1-53 


S-76# 












CF*IND 


1-160 














CF$QUT 


1 - 1 60 














CF2DEP 


1-48 














CFABLV 


1-161 














CFBLK 


1-128 














CFBUF 


1-104 


13-53 


13-67 


17-65 


30 18 






CFCHAN 


1-127 


1 7-43 


17-43 


17-65 


17-65 


19-33 


1 9-33 


CFEND 


1-104 


17-70 


30-29 










CFHOLD 


1-135 














CFIND 


1-118 


19-51 












CFJMP 


17-113 


17-115 


17-132# 










CFLFL4 


1-123 














CFNEST 


1-121 














CFOPEN 


.1.7-45 


1 7~56# 


19-63 










CFPNT 


1-128 


13-112 


14-26 


17-70* 








CFPRM 


17-66 


1 7-76# 


17-79 










CFSEND 


1-122 














CFSP 


1-122 


10-35* 












CFSPND 


1-134 


12-39 


12-42* 










CFSQEZ 


1-128 


13-55 












CFSTK 


1-64 


10-35 












CFSTRT 


1-60 


12-41 












CFSTS 


1-160 














CHAIN 


1 - 1 09 














CHRDEV 


1-199 














CHKDLM 


1-189 














CHKMNT 


1-174 














CHKMTX 


1-174 














CHKTTD 


1-199 


17-39 


19-29 


19-77 








CINDAT 


1-144 


13-21 


X w """wJjKU 


1 3-34 


13-61 


20-22 


20 -26 


CINFLG 


1-61 


1 1 -62* 


12-7* 


1 2-9 


20-29* 


23-70* 


24-57* 


CKLK 


13-102# 














CKPASL 


J. C."~ / w 


13-5# 












CKPRIV 


1-176 















S-4 



19-43 19-43 19-55 19-55 



20-27* 24-11 24-52* 24-53* 
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CKSF2 


13-103 


13-1 10# 






CMDACC 


1-85 


6-68 






CMDALC 


1-83 


6-51 






CMDASN 


1-83 


6-48 






CMDBOT 


1-85 


1-05 


6' 


-82 


CMDBUF 


1-167 


1-184 


9- 


-1# 




19-24 


19-57 


19- 


-71 


CMDCCL 


1-199 


6-11 


6- 


-15 




6-31 


6-34 


6- 


-35 




6-73 


6-75 


24- 


-11# 


CMDDAT 


1-82 


6-37 






CHDDEF 


1-86 


6-43 






CHDDET 


1--84 


6— 67 






CHDDLC 


1-83 


6-52 






CMDDMT 


1-83 


6-41 






CMDDSN 


1-165 


6-49 


6- 


-50 


CMDDSP 


1-83 


6-42 






CMDEND 


7-51# 


13-39* 


15- 


-111* 


CMDFMT 


1-82 


6-33 






CMDFRM 


1-165 


6-32 






CMDHD 


1-67 


6-B# 


18- 


-10 


CMDIND 


6-53 


22-6# 






CMDINI 


1-85 


6-70 






CMDINS 


1-77 


6-78 






CMDKIL 


1-84 


6-64 






CMDMEM 


1-84 


6-57 






CMDMNT 


1-82 


6-39 






CMDMON 


1-82 


6-40 






CMDOFF 


1-108 


6-44 


6- 


-45 


CMDPAU 


1-84 


6-65 






CMDRCL 


1-84 


6-66 






CMDREM 


1-83 


6-12 






CMDRSM 


1-65 


6-13 






CMDRST 


1-81 


6- 1 4 






CMDRSY 


1-81 


6-9 






CMDRUN 


1-81 


6-10 






CMD5ET 


1-81 


6-2.1 






CMDSHO 


1-81 


6-20 






CMDSHT 


1-86 


6-84 






CMDSND 


1-81 


6-22 






CMDSPN 


1-65 


6-80 






CMDSPO 


1-84 


6-62 






CMDSQZ 


1-85 


6-71 






CHDTIM 


1-82 


6-38 






CMDUSE 


1-85 


6-69 






CMDWHO 


1-82 


6-24 


6- 


-25 


CMDYEL 


1-80 


6-23 






COAD 


1-190 


1-191 






COAF 


1-203 








COAL 


1-190 


1-191 






COLOO 


1-184 








COLEQL 


9-2 1# 


15-11* 


15- 


•51 


CONFIG 


1-117 








CORUSR 


1-62 
23-20 


10-6 
23-72 


14- 


-6 



CPUAH 1-184 7-47# 



6-83 

13-35 15-6 15-112 16 7 16-24 16-31* 17-19 17-114 18-11 

20-23 24-12 

6-16 6-17 6-18 6-19 6-26 6-27 6-28 6-29 6-30 

6-36 6-54 6-55 6-56 6-58 6-59 6-60 6-63 6-72 



6-46 6-47 11-28 13-104 17-50 



15-60* 16 9 

14-13 17-6 17-46 17-56 17-120 18-27 19-13 20-30 21-5 



( 
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CPUAL 


1-184 


7-40# 








CPUMSG 


1-48 










CPYCXT 


8-39# 


28-17* 


28- 


-18* 


cH 19 


CPYPRN 


10-171 


28- 5# 








CR 


2-14# 


1 3-7 1 


29- 


-42 


30-26 


CRLF 


1-179 


11-58 


14- 


-9 


27-39 


CS$RON 


1-91 










CSHCLN 


8-35# 










CSHHD 


1-164 










CSHMSG 


1-52 










CSIMS1 


1-178 


3-8 








CSIMS2 


1-176 


3-8 








WW Jl I 1 w w 


1-201 


3-8 








CSIMS4 


1-198 


3-8 








CTMSG 


1-47 










CTRLTT 


1-107 










CURMTX 


1-189 










CURPRM 


1-133 










CVDVNM 


1-186 










CVTTAB 


1-167 










CWS50H 


1-117 










CXTBAS 


1-111 










CXTPAG 


1-90 










CXTWDS 


1-111 










DATUM 


1-165 


29-70 


29- 


-99 




DCCRD 


1-140 










DCCWR 


1-140 










DCTRD 


1-140 










DCTWR 


1-140 










DEADEV 


1-174 










DELSPC 


1-188 










DELWIN 


8-169# 


12-17 








DETARG 


1-203 


8-15# 








DETHD 


1-203 










DETTXT 


1-182 










DEVHD1 


1-185 










DEVIDL 


1-190 


1-190 


1 


-191 




DEVUNT 


1-177 


7-39# 








DFJMEM 


1-64 


10-36 








DIABFL 


1-128- 


26—66 








DIABLO 


1-149 


26-63 








DIABNO 


1-129 


26-65 








DIVIDE 


1-183 










DIVSOR 


1-196 


3-5# 








DJABMS 


1-194 










DKCOM 


7-4# 


17-12 


19- 


-25 


22-21 


DKSAV 


1-167 


7-6# 








DLCEMT 


1-50 


8-57# 








DLMSG 


1-194 










DLTXT 


1-181 










DMT ALL 


1-194 










DMTARG 


1-173 


8-30# 








DMTSUB 


1-199 










DOLRAT 


9--19# 


1 5-9* 


15- 


-71* 


17-28 


DOR UN 


1-165 


19-03 








DOSTOP 


1-195 











29-69 29-107 



i 

f 

c 
m 



17-129* 



< 
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DOT AT 9-20# 15-10* 15-84* 17-21 17-130* 

DZTXT 1-201 

fc.Dl I l-/« 1 0-102 

EDTFIL 1-187 11-46 

EM$DAA 1-53 

EM*NUC 1-58 16- J. 3 

EM*NUK 1-52 21-19 

EM$0VL 1-70 4-5 

EM*SFP 1-70 4-4 

EMCXCP 8-143# 28-87* 28-88* 28-89* 28-90 28-95* 28-96* 28-97 28-102* 28-103* 28-104 28-109* 

28-110* 28- 111 28-116* 28-117* 28-118 28-120* 28-121 28-123* 28- J 24 
ERRLOC 1-63 

ERRSEV 1-137 10-51* 12-47 

ERRSPC 1-107 11-41 11-45 12-4* 

ESC 1-52 2~19# 
FC$CDX 1-164 
FC*LNK 1-164 
FD*NAM 1-164 

FF 2-18# 15-20 24-16 

FILERM 1-75 11-43 

FILNAM 1-168 1-169 7-43# 17-38 17-43 19-28 19-33 19-41* 19-43 19-76 19-80 25-16 

FKILL 1-168 13-66 15-105 16-13 17-25 17-52 17-134 17-136 18-17 19-85 20-37 20-41 

21-19 22-12 23-16 

FNDCMD 18-13 18-27*1 

FPRINT 1-168 10-19 17-49 
FSTDL 1-99 
GAGMSG 1-193 

GENMON 1-53 8~186# 10-192* 10-193 10-197* 10-198 12-74 

GENTOP 1-108 10-17 

GETSYP 1-60 10-140 

GOTCML 15-124 16-6# 

GREET 1-46 2-9# 29-9 29-17 29-36 29-79 

GRT1 1-146 29-11 

GRTEND 29-80 29~109# 

GRTFIN 1-46 29-13 29-16 29-18 29-54 29~61# 

GRTINI 10-161 10-166# 

GRTVIR 29-8 29-71 29-103# 
GTRD50 1-173 
HANBSY 1-178 

HAiMCHN 1-78 2-2 1# 
HANENT 1-80 

HANIDX 1-177 7-49# 
HANS I Z 1-80 

HAZEL 1-88 26-56 

HA2LFL 1-88 26-60 

HAZLNO 1-88 26-59 
HIMAP 1-145 
HIPRI 1-179 

HNBUF 1-177 7-36# 

HUPARG 1-198 8-106# 

IDNCMD 13-44 16-33 18-1031 

II**SZ 1-70 8-87 8-95 

II*FLG 1-58 25-28 

II*NPV 1-58 25-25 

IISPRV 1-58 25-24 

IIBUF 1-45 1-58 3-9# 8-88 8-96 25-24 25-25 25-28 
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ILLCMD 


1-174 


15-105 


19-85 






< 


ILSW2 

IMADM3 

IMHAZL 


1-94 
1-75 
1-75 


10-68 
26-39 
26-58 








( 


IMVTIO 
IMVT52 


1-75 
1-75 


26-20 
26-32 


26-27 








IN$ACT 


1-158 


14-15 


14 -17 


17- 


•30 


< 


IN*CMD 
IN*CNT 


1-158 
1-158 


14-17 
14-18 


23-62 


23- 


-74 




INBUF 


9-7# 


14-32 


15-13 


15- 


-127 


< 


INDABT 
INDACT 


1-166 
1-170 


12-53 
23-16 


12-61 








INDCMD 


16-8 


16-19 


17~6# 






i 


INDERR 


1-110 


12-46* 


23-61* 


23- 


-71* 




INDINI 


17-34 


19-58 


22-30 


23- 


-10# 




INDNAM 


7-33# 


23-69 








< 


INDRFL 
INDRUN 


7-4 1# 
17-112 
14-19 


1 5-7* 

17-128* 

23-68# 


15-66 


15- 


-70* 


* 


INDSAV 


1-158 


1 7-23 


22-10 


23- 


-68 




INDSTA 


1-110 


14-14 


17-30 


23- 


14 




INFOMT 


1-174 










4 


INGADR 
INGEMT 
INIUKD 


1-45 
1-45 
1-61 


8-86# 
S-84# 
27-46 








4 


INPADR 
INPEMT 


1-45 
1-45 


8~94# 
8-92# 










INSCF 


17-61 


23-25 


25-12* 






€ 


INSSRC 
INVDAT 
INVDEV 


1-58 
1 -203 
1 -202 


25-17 








4 


INVEC 

INVLDM 

INVLDN 


1-159 
1-198 
1-175 










C 


INVOPT 
INVTIM 
IOABFL 


1-168 
1-194 
1 -62 


1-174 


1-189 






i 


ISPF11 


1-59 


28-81 


28-82 








ISPF5 


1-59 


28-53 


28-54 








ISPF6 


1-59 


28-60 


28-61 






i 


ISPF7 


1-59 


28-67 


28 08 








ISPF9 


1-59 


28-74 


28-75 








ITRMTP 


1-160 










i 


JCXPGS 
JCXSMS 
JPWDEV 


1-145 
1-201 
1-60 


28-116 








i 


JPWFLG 
JPWTYP 
JSSKMN 


1-63 
1-60 
1 -70 


28-123 
28-120 
12-75 








i 


JS*LOG 

JS$ON 

JSTKND 


1-72 
1-70 
1-107 


10-197 
10-192 








i 


JSWLOC 

K52 

KBMSG 


1-63 
1-78 
1-183 


11-61* 


12-8* 


13- 


-5 


4 


KBTX 


1-187 










4 
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19-51 23-14 



17-124 



15-79 15-83* 15-96 15-98* 16-7 16-18 17-7 17-19 
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13 18 13-41* 13-42* 13-65* 13-89 13-97* 14-5* 
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i 


KCSIMS 
KDOCIN 
KED 


1-173 
1 - 1 28 
1-78 


3-8# 
12-1.1. 






















i 


KEYBUF 
KEYEND 
KILEMT 


1-47 
1-49 
1-195 


9-3# 
9-4# 
8-1 18# 






















i 


KL3CLR 
KL4CLR 
KMFTXT 


1-97 

1-130 
1-48 


12-31 
12-24 






















{ 


KMNBAS 
KMNCHN 
KMNHI 


1.-155 
1-104 
1-89 
























< 


KHNNAM 
KMNOTl 
KMNPGS 


1-199 
1-46 

1-90 


7-31 # 

10-13 


10-196 


1 1 -6# 


















< 


KMNSTK 
KMNSTR 
KMNTOP 


1-90 

1-90 
1-90 
























< 


KMPRMT 
KMSTK 


1-62 
1-6 


1-141 
1-49 


10-44* 
9-1 1# 


10-45* 


14-32 


15-127 


23-88 














L 


6-9 


6-9# 


6-10 


6-10# 


6-11 


6-1 1# 


6-12 


6-12# 


6-13 


6-1 3# 


6-14 


6-14# 


I 




6-15 


6-1 5# 


6-16 


6-16# 


6-17 


6-17# 


6-18 


6-18# 


6-19 


6-1 9# 


6-20 


6-20# 






6-21 


6-2 1# 


6-22 


6~22# 


6-23 


6~23# 


6-24 


6-24# 


6-25 


6-2 5# 


6-26 


6-26# 






6-27 


6-27# 


6-28 


6— 2S# 


6-29 


6~29# 


6-30 


6-30# 


6-31 


6-3 1# 


6-32 


6-32# 


i 




6-33 


6-33# 


6-34 


6~34# 


6-35 


6-35# 


6-36 


6-36# 


6-37 


6-37# 


6-38 


6-38# 






6-39 


6-39*i 


6-40 


6-4 0# 


6-41 


6-4 1# 


6-42 


6-42# 


6-43 


6-43# 


6-44 


6-44# 






6-45 


6-45# 


6-46 


6-46# 


6-47 


6~47# 


6-48 


6-48# 


6-49 


6~49# 


6-50 


6-50# 


i 




6-51 


6-01 # 


6-52 


6— 52# 


6—53 


6-S3# 


6-54 


6-54# 


6-55 


6-55# 


6-56 


6-56# 






6-57 


6-57# 


6-58 


6-58# 


6-59 


6-59# 


6-60 


6-60# 


6-61 


6-6 1# 


6-62 


6-62# 






6—63 


6— 63# 


6-64 


6-64# 


6-65 


6~65# 


6-66 


6— 66# 


6-67 


6-67# 


6-68 


6-68# 


i 




6-69 


6-69# 


6-70 


6~70# 


6-71 


6-7 1# 


6-72 


6-72# 


6-73 


6~73# 


6-74 


6-74# 






6-75 


6-75# 


6-76 


6~76# 


6-77 


6-774} 


6-78 


6-78# 


6-79 


6-79# 


6-80 


6-80# 






6-81 


6-81 # 


6-82 


6~82# 


6-83 


6-83# 


6-84 


6-84# 










i 


LA 120 

LA12FL 

LA12N0 


1-149 
1-150 
1 - 1 50 


26-50 
26-53 
26-52 






















i 


LA36 

LA36FL 

LA36N0 


1-149 
1-129 
1-129 


26-44 
26-47 
26-46 






















i 


LACTIV 
LAFSIZ 
LBSPRI 


1-91 
1-94 
1-60 


12-29* 
28-26 






















i 


LCBIT 

LCOL 

LCONTM 


1-149 

1-93 
1-10.1. 


13-42 

1 - 1 36 
10-20* 


14-5 

14-7 




















i 


LCPUHI 
LCPULO 
LD*RON 


1-101 
1-101 
1-125 
























i 


LDBASE 
LDCLEN 
LDDEVX 


1-126 
1-166 
1-127 


11-24 


28-21 




















i 


LDFLAG 

LDNAM 

LDNAME 


1-126 
1-172 
1-126 


7-34 # 






















i 


LDOPHD 


1-180 
























i 
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LDPDEV 


1-126 








LDSIZE 


1 — 1 ciO 








i_F 


2-i3# 


i j- 72 


c:9-43 


k'V-lL 


LF*0PN 


1-163 








LF*WRT 


1-163 








LFWLIM 


1-94 


12-30* 






LGOVER 


1-47 


4-8 






LICTXT 


1-146 


29-29 


29-82 




LINBUF 


1-89 








LINCNT 


1-91 








L INCUR 


1-94 








LINFRE 


1-194 








LINNTX 


1-77 


29-103 






L1NNXT 


1-89 








LINPNT 


1-91 








LJSW 


1-107 








LMONHD 


1-70 


12-70 






LMXLN 


1-159 








LMXNUM 


1-157 








LMXPRM 


1-160 








LNBLKS 


1-111 








LNMAP 


1-117 








LNPRIM 


1-117 


27-16 


27-45 




LNSBLK 


1-112 








LNSPAC 


1-121 


12-27* 






LOCKTX 


1-183 








LOCMSG 


1-76 


1 1 -49 






LOGASN 


1-175 








LOGBLK 


1 - 1 62 








LOGBUF 


1-162 








LOGCHN 


1-162 


8-136 






LOGCLS 


1 - 1 79 








LOGFLG 


1-162 








LOGPTR 


1-162 








LQMAP 


1-145 








LOTBUF 


1-92 








LOTNXT 


1-92 








LOTPNT 


1-92 








LOTS I Z 


1-93 








LOTSPC 


1 -93 








LPARNT 


1-118 


10-195 


28-11 




LPRG1 


1-147 


11-6* 






LPRG2 


1-147 


.11-7* 






LPROG 


1-100 


28-41 


28-41* 


28-43 


LPROJ 


1-100 


28-40 


28-40* 


28-42 


LRBFIL 


1-118 


1 2-22* 






LRDTIM 


1-91 


1 2-28* 






LSCCA 


1-114 


11-10* 






LSECPT 


1-105 


27-38 






LSI ACT 


1-89 








LSTATE 


1-143 








LSTDL 


1-99 


10-131 


10-179 




LSTFRM 


7-46# 








LSTMX 


1-157 








LSTPL 


1-138 


10-66 


10-133 


29-7 


LSTPRM 


1-184 


1 7-88 







30 



29-15 
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LS'fSL 


1-143 






























LSUCF 


1-96 


10-18.1 




























LSW 


1-62 


10-11 


10-22* 


10-160 


10-175* 


1 1 -26 


30-19 


















LSW11 


1-87 


28-80 


28-82* 


28-83* 
























LSW2 


1-109 


10-138 


10-162* 


10-167 


12-23* 


26-14 


26-68* 


28-47 


28- 


-47* 












LSW2S 


1-113 


10-167* 


12-23 


26-69* 


28-48 


28-48* 




















LSW3 


1-113 


12-31* 


13-115* 


























LSW4 


1-130 


12-24* 


12-32* 


13-51 


13-91* 


13-94* 


17-57* 


17-121 


17- 


-123* 


17- 


-127* 


19-62* 


24- 


-49 


LSW5 


1 -97 


10-106* 


10-108* 


10-130* 


12-25* 


12-33* 


12-38* 


12-50* 


12- 


-66* 


13- 


-16 


13-87 


13- 


-92 




13-96* 


13-102 


17-26 


19-53 


23-21* 


23-73* 


24-28 


24-58* 


28- 


-52 


28- 


-54* 


28-55* 






LSW6 


1 - 1 56 
29-12 


10-21* 
29-14* 


1 1-21 


1 1-25* 


12-5 


12-36 


12-59 


12-63 


24- 


-40 


28- 


-59 


28-61* 


28- 


-62* 


LSW7 


1-160 


10-114* 


10-117* 


10-120* 


10-124* 


12-34* 


12-51 


13-30 


13- 


-40* 


13- 


-98* 


14-24 


16- 


-26 




1.9-14 


20-4 


20-31* 


21-12* 


21-18* 


28-66 


28-68* 


28-69* 
















LSW9 


1-87 


11-18* 


12-26* 


12-35* 


13-114* 


17-47 


28-73 


28-75* 


28- 


-76* 












LTRMTP 


1-150 


24-35 


26-13 


























LTSCMD 


1-121 


11-17* 




























LUNAME 


1 - 1 00 


1 0-28 


23-35 


28-36 
























LWINDO 


1-65 


27-21 




























MAKWIN 


8-156# 


27-23 




























MAP WIN 


8~164# 


27-28 




























MAXASN 


1-110 






























MAXAVL 


1-177 






























MAX MEM 


1-63 


10-40* 




























MAXMTX 


1-189 






























MAXPRI 


1-63 


1-161 


10-43 


























MAXSEC 


1-105 






























MDT 


1-8 


1 -88 




























MHNSMS 


1-193 






























MINTIM 


1-105 


10-20 




























MISSEQ 


1-178 






























MISUCL 


1-76 


20-37 




























MNBASE 


1-188 


8-175# 




























MNBPC 


1-187 


8-1 77# 




























MNFLGS 


1-187 


8-1 78# 




























MNTARG 


1-198 


8-25# 


10-145 


























MNTDEF 


7-27# 






























MNTDEV 


1-173 


7-50# 


8— «r.6 


8 31 


10-144* 






















MNTFUL 


1-175 






























MNTOP 


1-188 


8-176* 




























MNTTXT 


1-200 






























MONAR 1 


1 - 1 88 


8-174# 




























M0NAR2 


1-188 


8-182* 




























MONHD 


1-188 






























MONTAB 


1-51 






























MONTXT 


1-75 


11-38 




























MONVEC 


1-161 






























MSOBUF 


1-193 


8-46 


S~47# 


























MSOEND 


1-193 


8-48# 




























MSTALC 


1-71 


4-6 




























MTOPHD 


1-174 






























MUL32 


1-203 






























MXCSR 


1-157 






























MXDTR 


1-157 






























MXJADR 


1-65 






























MXJMEM 


1-64 
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MXJPRI 


1-161 


10-43* 






MXPRMT 


1-62 


1-1 4 J 


28- 


-89 


MXVEC 


1-159 








NAMTOP 


1-146 


10-41 






NARGS 


6-8# 


6-9 


6- 


•9 




6-14 


6-15 


6- 


-15 




6-20 


6-21 


6- 


-21 




6-26 


6-27 


6- 


-27 




6-32 


0"*"vJ3 


6- 


-33 




6-38 


6-39 


6 


-39 




6-44 


6-45 


6- 


-45 




o™ i^O 


6~51 


6- 


-51 




6-56 


6-57 


6- 


-57 




6-62 


6—63 


6- 


-63 




6—63 


6-69 


6- 


-69 




6-74 


6-75 


6- 


-75 




6-80 


6-81 


6- 


-81 


NAT XT 


1-181 








NEWCMD 


1 3-111 


13-113 


14- 


-5# 


NEWJSW 


1-107 








NFRESB 


1-132 








NINTXT 


1-181 








NLINES 


1-119 








NGABRT 


11-31 


12-4# 






NGCF 


1-76 


1 7-49 


17- 


-52 


NOCIN 


1-172 


12-10 


12- 


-17# 


NOCMD 


18-16 


19~13# 






NODAT 


1-186 








NOFIL 


1-184 


1 - 1 92 






NOFLAG 


1-174 


9-18# 






NOFRDL 


1-203 








NOICMD 


1 7-40 


17-52# 






NOIND 


1-178 


17-25 


22- 


12 


NOLDMT 


1-186 








NONEMS 


1-186 








NOOPTT 


1-192 








NOPMGN 


1-188 








NOPRG 


1-168 


1-172 






N08TRT 


1-171 








NOTAVL 


1-187 








NOTON 


1-193 








NOT XT 


1-181 








NOUCL 


9-22# 


13-43* 


15- 


-12* 


NOUDC 


1-185 








NSPLDV 


1-125 


10-79 






NSWPMS 


1-189 








NUCHN 


1-118 








NUHDEV 


1-152 








NUMMNT 

NUMON 

NUMPRM 


9-23# 

1-94 
1-76 


17-134 






OCTFIX 


1-181 








OCTPRT 


1-201 


11-51 






OF**SZ 
OF*DEV 


1-154 
1-153 








OF*FIL 


1-153 









16-32* 19-16 



< 



c 



6-10 6-10 6-.11 6-11 6-12 6-12 6-13 6-13 6-14 

6-16 6-16 6-17 6-17 6-18 6-18 6-19 6-19 6-20 

6-22 6-22 6-23 6-23 6-24 6-24 6-25 6-25 6-26 

6-28 6-28 6-29 6-29 6-30 6-30 6-31 6-31 6-32 

6-34 6-34 6-35 6-35 6-86 6-36 6-37 6-37 6-38 

6-40 6-40 6-41 6-41 6-42 6-42 6-43 6-43 6-44 

6-46 6-46 6-47 6-47 6-48 6-48 6-49 6-49 6-50 

6-52 6-52 6-53 6-53 6-54 6-54 6-55 6-55 6-56 

6-58 6-58 6-59 6-59 6-60 6-60 6-61 6-61 6-62 

6-64 6-64 6-65 6-65 6-66 6-66 6-67 6-67 6-68 

6-70 6-70 6-71 6-71 6-72 6-72 6-73 6-73 6-74 

6-76 6-76 6-7/ 6-77 6-78 6-78 6-79 6-79 6-80 

6-82 6-82 6-83 6-83 6-84 6-84 
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0F$FLG 


1-153 








0F$UNT 


1-153 








OFFEMT 


1-195 


8- .1 00# 






OKFEND 


1 - 1 06 








OKFILE 


1-106 








OPRCMD 


1 -84 


6—61 






0T$R0N 


1-154 








OTHRON 


1-197 








OTRMNT 


1-199 








OVLYEQ 


1-201 


11-55 






OVRCOR 


1-171 








PO*DBG 


1-69 








PO*SPV 


1-69 








P2*VIR 


1-57 


10-70 






PASLIN 


1-137 


12-8 


13- 


-5 


PAUMSG 


1-167 








PBFEND 


1-122 


17-103* 






PBUFND 


1-48 


9-1 7# 






PF*IOW 


1-156 








PF*SYS 


1-156 








PLDAD 


1-165 


20-33 


21- 


-14 


PMBUSY 


1-188 








PNAME 


1-152 


1-177 






POPCF 


1-129 


17-51 


19- 


-56 


PPNMSG 


1-47 








PRGALL 


1-165 


11-1 6 


11- 


-23 


PRGSIZ 


1-89 








PRGTOP 


1-89 








PRIEMT 


8-1 5.1. # 


28-25 






PRIVAO 


1-69 


10-60* 






PRIVA2 


1-57 


10-7 J * 






PRIVCO 


1-69 


10-63* 


10- 


-74* 


PRIVFO 


1-59 


10-62* 


10- 


-73* 


PRIVSO 


1-69 


10-61* 






PRIVS2 


1-57 


10-72* 






PRMBUF 


1-134 


1 7-87 






PRMEND 


1-134 


17-95 






PRMPNT 


1-133 


1 7-86 






PROFLG 


1-86 


29-34 


29- 


-61 


PRSCMD 


15~6# 








PRTBUF 


1-186 


9-1 6# 






PRTDAT 


1-202 








PRTDC2 


1-183 








PRTDC3 


1-183 








PRTDEC 


1-177 


29-68 


29- 


-106 


PRTFIX 


1-180 








PRTFNM 


1-186 








PRTGRT 


1-46 


10-166 


29 


-7# 


PRTLN 


1-182 








PRTPCT 


1-196 








PRTR50 


1-202 


11-57 






PRTSPC 


1-180 








PRTSUP 


29-92# 








PRTTIH 


1-202 








PRTTHV 


1-184 








PR T TOD 


1-202 









13-41 13-65 13-97 



23-76 24-60 

1 9-67 
12-58 



25 24* 25-25* 
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PRTTTP 1-181 

PR'iUNM 1-182 



( 



HlL :i /-¥£> l/'--l06# 

PUSHCF 1-169 13-57 17-41 19-31 30-14 

PVNPW 1-69 10-57 25-23 

PVON 1 -97 

QUME 1-149 26-63 

QUMEFL 1-151 

QUMENO 1-151 

QUOTFL 7-42# 15-8* 15-31 15-33* 15-35 13-41* 

R50BUF 1-173 7-4 5# 

R50CHR 1-49 

R30C0M 1-170 7-2 5# 

R50DIR 1-169 7-16# 

R50DK 1-202 7-3# 

R50DSK 1-175 7-.U# 

R50DUP 1-170 7-1 7 # 

R50IND 1-169 7-18# 

R50K52 1-170 7-1 3# 

R50KED 1-170 7-12# 

R50KEX 1-170 7-1 4# 

R50KMN 1-61 7-35# 11-6 11-7 

R50LD 1-175 7~22# 

R SOLDO 1-173 7-23# 

R50LD7 1-175 7-24# 

R50L0G 1-179 7--10# 

R50M0N 1-203 3-/# 

R50N0 1-176 7-37# 

R SOP IP 1-170 7-i:./# 

R50SAV 1-169 7-26# 

R50SY 1-169 7-9*1 10-144 19-41 

R50TSX 1-166 7-19# 

R50TT 1-198 7-7# 

R50UCL 1-166 7-20# 

R50VIR 1-171 7~21# 

RDB 1-142 

RDBEND 1-142 

RDCMD 1-167 6-76 6-77 6-79 6-81 14-8 14--13# 15-114 17-15 17-132 19-75 22-24 

RDERM 1-171 4-36 ™" " 

RDREST 17-77 17-1 12# 

REGEN 1-75 10-19 

REMNDR 1 -49 3-6# 

RESDEV 1-154 

RJEMT 1-143 8-130# 

RNMS 1-182 

RONTXT 1-187 

RSR 1-157 

RSTPRV 1-70 10-75 11-20 25-29 

RT**S2 1-142 

RT*NAM 1-142 

RUNARO 1-69 11-12* 

RUNCHN 1-66 11-19 11-19 19-80 19-80 20-16 20-16 21-7 21-7 23-68 23-68 24-55 

24-55 

RUNDEV 1-111 

RUNEMT 1-171 S-4# 

RUNFLG 1-112 
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RUNHD 1-167 

RUNMS 1-203 

RUNNAM 1-66 23-64 

SSINWT 1-103 

S$JOFN 1-98 

S$IOWT 1-147 

S*MSWT 1-104 

S*OTFN 1-98 

S*OTLO 1 ~98 

S*OTWT 1-103 

5$GUSR 1 - 1 47 

S*SFWT 1-103 1-147 

S*SPCB 1-148 

S-*SPDB 1-148 

S*SPND 1-97 

S$TMWT 1-103 

S*TTFW 1 -98 

S$TWFN 1-98 

SBPSUF 1-60 10-184 28-109 

SC*ERR 1-57 10-51 

SCHAIN 1-127 12-8 13-5 13-18 13-41 13-65 13-89 13-97 

SCNCMD 15-13# i 5-128 17-131 

SD*BAK 1-130 

SD*DEL 1-123 

SD$FLK 1-124 

SD*HLD 1-133 

SD*SNG 1-132 

SD*WFM 1-124 

SDBLK 1-125 

SDBU 1-130 

SDBUF1 1-125 

SDCB 1-138 

SDCBND 1-138 

SDCBSZ 1-143 

SDFHD 1-135 

SDFLAG 1-124 

SDFORM 1-124 

SDSFCB 1-123 

SDSKIP 1-130 

SEARCH 1-167 18-12 

SERFLG 1-62 11-11* 17-42* 17-44* 19-32* 19-34* 19-42* 19-44* 19-79* 19-81* 

SETHD 1-176 

SETSUF 10-187 13-117 30-9# 

SFU1ST 1-133 

SF$BSY 1-132 

SF*HLD 1-133 

SFFILE 1-148 

SFFLAG 1-135 

SFFORM 1-132 

SFNMBL 1-132 

SFQLNK 1-135 

SFUSER 1-148 

SH**SZ 1-79 

SH$FLG 1-79 

SH*NAM 1-79 

SH*RTN 1-79 
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SHUVAL 


1-79 








SHMTH1 


1-185 








SHM 1 He> 


i-i a» 








SHOHD 


1-200 








SHTMSG 


1-195 








SIZEMT 


1-198 


8-20# 






SIZVAL 


1-172 


8-21 # 






SJEMT 


1-143 


8~J24# 






SKPSPC 


1-59 


22-17 






SMONHD 


1-71 


12-72 






SO*NO 


1-80 








SO$NVL 


1-80 








SO*OCT 


1-80 








SPACE2 


1-182 








SPACES 


1-182 








SPACES 


1-183 








SPACE6 


1-186 








SPACTV 


1-190 


1-191 






SPCF 


1-192 








SPFLK 


1 - 1 92 








SPFUL 


1-192 








SPGEMT 


1-192 


S-9# 






SPLACT 


1-195 








SPL.CHN 


1-102 


10-81 






SPLHD 


1-189 








SPLHLA 


1-180 


8~J36# 






SPLPND 


1-197 








SPSNG 


1-190 


1-192 






SPUBUF 


1-65 


10-42 






SPWFM 


1 - .1 90 


1-191 






SRTSMS 


1-197 








SRTTXT 


1-200 








SSRMAP 


1-200 








START 


1-48 


8-114 


10-5# 


30-38 


STDNAM 


1-75 


10-46 






STLGCN 


1-165 








STLGHD 


1-179 








STPASK 


1-197 








STPFLG 


1-102 








STRLEN 


1-76 


17-136 






SUBARO 


1-187 








SUB TXT 


1-200 








SUCF2 


1-57 


13-110 


13-116 


13-118* 


sues 


1-146 


29-53 






SUH1 


1-196 








SUM2 


1-196 








SUM3 


1-196 








SUM4 


1-196 








SUMS 


1 - 1 97 








SUM6 


1-197 








SUM7 


1-197 








SUMS 


1-146 


29-22 






SUPCOD 


1-146 


29-92 






SWPTX 


1-183 








SXBPNT 


1-65 


10-42* 






SYCOM 


7-3# 
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SYHD1 


1-182 








SYHD2 


1-182 








SYINDX 


1 -- 1 52 








SYINTX 


9-2 5# 


23-33 






SYNAME 


1 - 1 53 








SYSAV 


1 - 1 67 


7-5# 


19 


-72 


SYSDAT 


1-144 








SYTIMH 


1-144 








SYTIML 


1-144 








SYTXT 


9~24# 


19-50 






SYUNIT 


1-152 








TAB 


2-17# 


15-18 


15- 


-117 


TALEMT 


1-50 


8~62# 






TBLOVF 


1-176 








TECO 


1-78 


10-104 






TK1VAL 


1-144 








TM$LN1 


1-77 


29-66 






TMIDLH 


1-67 








TMIOH 


1-67 








TM10WH 


1-66 








TMSWPH 


1-67 








TMSWTH 


1-67 








TMTOTH 


1-66 


1-196 






TMTOTL 


1-66 


1-196 






TMUSRH 


1-66 








TOMPRM 


1 7-89 


17™134# 






TOOLNG 


1-76 


1 3-66 






TOTMMS 


1-200 








TOTON 


1-102 








TOT XT 


1-179 








TRGRET 


1-146 


29-38 






TRMINI 


10-150 


26-941 






TRMSTR 


1-169 








TRYUCL 


1 9-82 


20-4# 






TSKMN1 


1-11# 


1-51 






TSKMON 


1-10# 


1 -46 


1- 


-51 


TSR 


1-157 








TSXLN 


1-146 


29-75 






TSXSIT 


1-146 


29-67 


29- 


-75* 


TSXSMS 


1-201 








UC$MDC 


1-164 


10-96* 






UC*NDC 


1-164 


10-95* 






UCHAN 


1-116 


11-13 


11- 


-15* 


UCIDEF 


1-52 


3-441 






UCISPC 


1-93 


21-6 


28- 


-102 


UCLBLK 


1-163 


1 0-86 


16- 


-11 


UCLCMD 


1-85 


6-74 






UCLDAT 


1-163 


10- OB 






UCLNAM 


1-121 


20-16 


20- 


-28 


UERSEV 


1-137 


11-35* 


12- 


-46 


UFORM 


1-109 


10-47 


28- 


-95 


UFPTRP 


1-123 


11-9* 






UHIMEM 


1-111 


10-41* 






UKMNAM 


1-96 








UMSSMS 
UMSYTP 


1-200 

1 -99 









23-63 



24-14 



16-28 19-18 



12-47 12-54* 23-61 23-71 
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UNSUP 


1-77 


29-98 




UPPN 


1-100 


28-42* 


23-43* 


UPTMHS 


1-195 






URCMD 


1-77 


20-4 .1 




URERR 


20-5 


20-7 


20-12 


USPLCH 


1-102 


10-01 


10-81 


USRMMS 


1-20.1 






USRSTK 


1-64 






USTART 


1-108 






UTRPAD 


1-63 


11-GK- 




VCORTM 


1-141 






VEDIT 


1-68 


10-102 


10-104 


VHIPCT 


1 - 1 39 






VIRINI 


10-156 


27-104! 




VGUAIM1 


1-139 






VGUAN2 


1-139 






VQUN1A 


1-139 






VTIOO 


1-149 


26-16 




VTIOFL 


1-151 


26-19 




VTIONO 


1-151 


26- J 8 




VT2007 


1-155 


26-23 




VT2008 


1-155 


26-23 




VT20FL 


1-155 


26-26 




VT20IM0 


1-155 


26-25 




VT52 


1-149 


24-35 


26-30 


VT52FL 


1-150 


26-34 




VT52N0 


1-129 


26-33 




VU*CL 


1-121 


20- If 




VUCLMC 


1-122 


10-96 




VUCLOR 


1-123 


10-112 


10-115 


WILDFL 


1-68 


10-128 




WRNHED 


1-52 






XAREA 


1-168 


7-44# 


10-81 




23-68 


24-55 




YELEMT 


1-194 


8-44 # 




YESTXT 


1-181 






ZCLR 


1-157 
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14-32 
.10-97 
10-88 
1 9-33 



. . . CMO 


14-32 


14-32 


. . . CM1 


10-81 


10-88 


. . . CM2 


10-81 


10-88 




17-65 


1 9-33 




24-55 




. . . CM3 


10-98 


11-19 


. . . CMS 


10-81 


1 0-88 




17-65 


19-33 




26-58 


27-39 




29-108 




CM7 


10-97 


17-65 


. CLOSE 


1 ~39# 


1 0-98 


. CSIGE 


1 -37# 




. CSISP 


l-35# 




. DATE 


l-38# 




. ENTER 


1~40# 




. EXIT 


1~4G# 




. FPROT 


1-41# 




. gtim 


1 -38# 




. OTLIN 


1 -3S# 


14-32 


. GVAL 


l-4l# 




. HERR 


i-4i# 




. LOQKU 


l-39# 


10-08 


.PRINT 


l-39# 


1 1 -38 




26-39 


26-58 


. PURGE 


l-36# 


19-55 


. PVAL 


1-41# 




. READW 


l-36# 


1 7-65 


. REOPE 


l-37# 


10-81 


. SAVES 


i-37# 




. SERR 


i-41# 




. SRESE 


l-35# 




. TTOUT 


i-35# 




. TTYIN 


l-36# 




. TTYOU 


l-36# 


27-40 


. WRITW 


l-40# 


10-97 


CMDDEF 


5-38# 


6-9 




6-20 


6-21 




6-32 


6-33 




6-44 


6-45 




6~56 
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